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Le chemin des ecoliers, tel est souvent le pas- 
sage par le Bureau. Pour changer ^application, il suffit 
aujourd'hui d'appeler I'accessoire "Raccouici" Apres avoir 
confirme voire intention de quitter le programme en cours v 
une fcnetre de Selection apparait et un simple double-clic 
vous fait passer de Basic a ScreenMaker, de MacPaint k 
Mul liplan et, pourquoi pas, de MacFoith ii MacPoker. . , 

Des avantages : 

Sur un 128 Ko, ne pas passer par le Finder e'est 

eviter des manipulations goumiandes en temps et 
en patience. 

Sur un 512 Ko , Ics applications disposent de toute la 
place memoire. 

Sur un Mac Plus, les changements sont quasi- 
insfantanes ct les 768 Ko de memoire cache sont 
disponibles. 

Compatible avec Switcher l VOUS p01HTC7. 
changer 1'une ou 1'autre des applications gerees par 
Switcher directement par cet accessoire. 

Compatible disques dtirs : meme si votre dis- 

q ue dur est partage via AppleTalk. . . 

Disponible h tout moment, "Raccourci" est toujours 
utilisable car il ne necessite pas une installation 
prealable des applications (sait-on toujours k 
l'avance quelles applications seront n&cssaircs H 
un travail donne ?). 

Avec Pom's, travaillez directement ! 




ad lltteram 
Idle 
Rlbom 
Hoi loge 
Calculette 
Tableau de bord 
Sclcctcur d'imDiimante 



Uuutez-uous quillet 
MacOrotu ? 



[ Qui j) [ flnnuler 




■zz> Prog.cp 



GD.MP 

-$i Download 

& Edit 

Fedit 3.0 

font-UH Moucr 

□ UDI9.5 

MacDrau» 



MacPaint 



MrtrlHi itp 



z 



> Prog. to 

Ejgcler 

I ft ti'tir 



Ouurir 



flnnuler 



Disquette "Raccourci" - 200,00 F franco - Bon de commandc page 74 - ©Editions MEV 



... 

Herve Tliiriez Editorial 

Scrions-nous a Petroit dans nos 140Ko ? L'adoption d'une nouvelle mise en pages et d'une 
typographic plus dense pour les listings nous permet de vous proposer un "Pom's" toujours 
plus riche, mais il devient difficile de mettre tous les programmes Apple // sur la meme dis- 
quette. Sur celle du precedent numero comme sur celle-ci, nous avons ete conduits a supprimer 
les remarques des sources en assembleur, considerant qu'elles soht inipriinees dans la revue et 
que leur absence ne gene en Hen ^utilisation. Nous ne doutons pas qu'entre toutes les REMs et 
plus de programmes, chacun aurait fait le meme choix,,, Rappelons a ce sujet que les sources 
sont maintcnant sauvcgard6s sous format TEXT pour une utilisation avec tous les assembleurs. 
Les problemes qui proviennent de la difference de syntaxe entre assembleurs seront abordes 
dans un procham article. 

Notre stock (Particles en attente d'impression nous assure, pour de nombreux numeros, densite, 
qualite et originalite. Dans ces colonnes, prochainement, une elegante gestion d'adresses, un in- 
terpreter dote entre autre d'un buffer clavier, P& au secours de la souris, un 6cran virtuel 
style MagicWindow, un calculateur, des accessoires de bureau. En resume : une veritable as- 
surance chomage pour Apple // et Macintosh. 

Fas de chomage non plus pour votre Z80 : J.-F. Ra basse s'est attache & la communication en 
CP/M . La premiere partie de cette etude vous offre une commande pour controler de fa$on 
simple la carte serie. Insistons sur le caractere autonome de chacune des deux parties ; 
desagreables en effet ces programmes qui ne fonctionnent qu*a la reception du enieme numero ! 

Dans ces pages, outre Basic, Pascal, et Assembleur, un programme pour nos tout-petits, 
illustrant Putilisation de ToolKit d'AppIe et le fort intfrcssant courrier de Michel Duroc k 
propos d'AppIeWriter : vous avez dit diversity ? 

Ordico de Roland Jost est une nouvelle disquette Pom's pour cruciverbistes, scrabbleurs et 
autres joueurs de mots. Au-del& de la quality de programmation et de la rapidity de recherche, 
cette mini-base de donnees (d'aucuns diraient mini-BDD...) vaut par Petendue de ses references 
dont la presentation en page 57 donne une idee. 

Nous vous donnons rendez-vous dans nos pages de novembre avec peut-etre quelques elements 
concrets sur le nouvel Apple //. . . 
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en 



flGR 



Frederic Rosay 



Ce programme, sans 
pretcndre egaler les 
performances du Mac, 
permet de donner une 
touchc tr£s professionnelle a vos 
programmes en leur permettant 
d'utiliser le principe des fenetres 
graph iques. 

II permet d'ouvrir simultanement 
jnsqu'a deux fenctrcs graphiques 
(ce qui est suffisant dans la 
pluparl des cas), la deuxieme 
venant se superposer a la 
premiere qui est elle-mdme 
sauvegardee puis redessin£e. 



Syntaxe 

FENETRAGE est congu pour 
etre appele a partir d'un 
programme Applesoft, et utilise 
1'ampersand (&) comme indicatif 
d'appel. 

& OIJVRE haut, has, 
droite, gauche 

(&OUVRE56, 136, 40, 239 ou 
& OUVRE HT,136,DR,GH par 
exemple) ouvre une nouvelle 
fenetre d'aprcs les coordonnees 
graphiques. Le programme 
dessine autonialiquement un 
cadre autour de la fenetre. 
Les valeurs peuvent etre donn^es 
de maniere statique ou par 
1'intermediaire dc variables 
Applesoft. Elles doivent etre 
comprises dans la plage a 191 
en vertical, a 279 pour 
1'horizontal. Si haut < bas, ou 
droite < gauche, le programme 
inverse automatiquement les 
coordonnees. Les dimensions 
minimum dune fenetre sont : 10 
points verticaux, 14 points 
horizontaux. 



CE PROGRAMME PERMET D'OUURIR 
UNE FENETRE TOUT EN CQNSERUANT 
CE QU'IL Y AUAIT EN DESSOUS- 
L 'UTILISATEUR PEUT FA I RE TOUT 
CE QU'-IL DESIRE A L "INTERIEUR 
DE CETTE FENETRE - 



& FERME 

ferme la derniere fenetre ouverte 
en restituant l'affichage de la 
premiere fenetre. 

Le programme utilisateur peut 
ccrirc sur les fenetres graphiques 
par tout moyen a sa convenance 
(HPLOT, DRAW, etc.) mais a la 
responsabilite de ne pas depasser 
les bornes de la fenStre qu'il a 
definie. 



Afin de minimiser l'uccupation en 
memoire de la routine 
FENETRAGE, celui-ci ne 
conrrole pas certains cas 
d'erreurs : par exemple, 
l'ouverture d'une troisienie 
fenetre graphique est auloiisee 
mais detruira la premiere fenetre 
qui ne pourra plus etre restauree. 

Fonctionncment 

Le programme tourne 
indifferemmenl sous DOS 3.3 ou 
ProDOS, et quelle que soit la 



configuration memoire de votrc 
Apple (compatibilite...)- Tres 
schematiquement, lorsqu'il est 
appele, les operations suivantes 
sont entreprises : 



• si une ouverture est demandee : 

- conuole de la syntaxe 

- sauvegarde de l'affichage 
graphique actuel, soit en 
carte langage (si DOS 3.3 et 
une carte langage), soit en 
dessous d'Himcm 

- dessin du cadre autour des 
coordonuees de la nouvelle 
fenStre 

- mise 3 blanc dans le cadre de 
la nouvelle fenetre 

• si une fermeture est demandee : 

- restauration de l'ancienne 
fenetre 

II se loge a partir de l'adresse 
$9200 et manipule Himem ainsi 
que le vecteur de I'ampersand. 
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Fichiers utilises 

FENETRAGE code objet 
executable 

FENETRAGE.S source en Big 
Mac 

FENETRAGE.DEMO 



demonstration en Applesoft 

HGRECR.LIB routine d'Eric 
Ringot (Pom's 15) 

Le programme FENETRAGE. 
DEMO utilise la routine 



HGRECR d'Eric Ringot parue 
dans le numero 15 de Pom's pour 
gcrire facilement des caractSres en 
HGR sans avoir a utiliser une 
moisson dc HPLOT. 



Programme 

'FENETRE. DEMO ' 

1 REM FENETRAGE.DEMO 
5 PRINT CHR$ (17) 

10 PRINT CHRS (4) "BLOAD HGRECR.LIB, AS8 000 

20 PRINT CHR$ (4) "BRUN FENETRAGE" 
30 HM = 32768 
35 HOME 

40 HGR t POKE 40234,0 

50 HC0L0R= 3: ROT- 0: SCALE= 1 

60 & OUVRE5C, 136, 40, 239 

70 AS - "CE PROGRAMME PF.RMKT D'OUVRIR «! CA 

LL HM, A$, 50, 70 
80 A$ = "UNE FENETRE TOUT EN CONSERVANT" : C 

ALL HM,A$, 50, 80 
90 A$ = "CE QU'IL Y AVAIT EN DESSOUS . "; CAL 

L HM, AS, 50, 90 
100 AS - "L'UTILISATEUR PEUT FAIRE TOUT"; C 

ALL HM,AS,50, 100 
110 AS - "CE QU'IL DESIRE A L ' INTER TF.UR " : C 

ALL HM,A$,50,110 
120 A$ = "DE CETTE FENETRE.": CALL HM,A$,50 

,120 

125 A$ m "APPUYEZ SVR TOUCHE, S.V.P.": CALL 

HM,A$,10,185 
130 GET A$: & FERME 
140 & 0UVRE30, 161, 80, 199 

150 AS = "SI L' APPLICATION": CALL HM,A$,90, 
40 

160 A? - "SORT DE LA FENETRE": CALL HM,A$,9 
0, 50 

170 A$ - "ALORS, A LA": CALL HM,A$,90,60 
180 A$ = "FERME TURE DE CETTE": CALL RM,A$,9 
0, 70 

190 AS = "DERNIERE, TOUT CE" : CALL HM,A$,90 
,80 

200 A$ = "QUI A ETE MOD IF IE" : CALL HM,A$,9Q 
,90 

210 A$ = "EN DEHORS DE LA": CALL HM, AS, 90,1 
00 

220 AS = "FENETRE RESTERA" : CALL HM, AS. 90,1 
10 

230 AS = "TEL QUEL. 1 ': CALL I!M,A$,90,120 
240 AS - "PAR EXEMPLE : " : CALL HM, AS, 90, 140 
250 GET A$: & OUVRE10, 175, 70,209 
260 FOR J - 7 TO 180 STEP 10: FOR I = 7 TO 

279 STEP 15 
270 A$ = "X": CALL HM,A$,I,J 
280 NEXT I, J 

290 GET AS: & FERME: GET AS 
300 HGR : POKE 49234,0 



310 AS - "APPUYEZ SUR TOUCHE, S.V.P.": CALL 

HM,AS,10jl85 
320 6 OUVRE10, 170, 30,249 

330 AS - "L A SYNTAX E" : CALL HM,A$, 9 
0, 20 

340 A$ - "CE PROGRAMME EST FAIT POUR EIRE"; 

CALL HM, A$, 40, 40 
350 AS = "UTILISE EN BASIC, DONC POSSEDE " : 

CALL RM,A$,40, 50 
360 AS = "UNE SYNTAXE TRES SIMPLE. ": CALL R 

M,AS, 40, 60 

370 AS = "POUR OUVRIR UNE FENETRE, IL": CAL 

L HM, AS, 40, 70 
380 AS - "SUFFIT DE FAIRE:": CALL HM,A$,4Q, 

eo 

390 AS - & OUVRE I1AUT, DAS, DROITE, GAUCHE" 

: CALL HM, AS, 40, 90 
400 AS = "SI HAUT EST INFERIEUR A BAS": CAL 

L HM,A$,50, 100 
410 AS ■ "LE PROGRAMME INVERSE LES " : CALL H 

M,AS, 50, 110 
420 AS = "DEUX COORDONNEES (DE MEME POUR": 

CALL HM,AS,50, 120 
430 AS - "DROITE ET GAUCHE).": CALL HM,A$,5 

0,130 

440 AS - "SI DA5 IIAUT<10 ALORS BAS^HAUT+10" 

: CALL HM,A$,50,140 
450 AS * "DE MEME SI GAUCHE -DBO I TE<1 4 ALORS 

•': CALL HM, A$, 50, 150 
460 AS = "GAUCHE=DROTTE+l 4 " : CALL HM,AS,50, 

160 

470 GET AS: & FERME 

480 & OUVRE10, 170,30,249 

490 AS - "LA SYNTAX E": CALL HM, AS/ 9 
0,20 

500 AS - "CECI POUR DES RAISONS DE COMt-iODIT 

ES": CALL HM, AS, 40, 40 
510 AS - "AU NIVEAU DU PROGRAMME ET DE": CA 

LL HM,AS, 40, 50 
520 AS = "L ' UTILISATION (ON NE PEUT RIEN" : 

CALL RM,A$,40, 60 
530 AS = "FAIRE DANS UNE FENETRE PLUS PETIT 

B) n t CALL HM, AS, 40,70 
540 AS - "POUR REFERMER UNE FENETRE IL SUFF 

IT": CALL HM, AS, 40, 90 
550 AS = "DE FAIRE:": CALL HM, AS, 40, 100 
560 AS - *'- & FERME": CALL HM, AS, 40, 110 
570 AS - "ALORS LA DERNIERE FENETRE OUVERTE 

": CALL HM, AS, 50,120 
580 A$ - "EST REFEFMEE . " : CALL HM, A$,50, 130 
590 GET AS: & FERME 
600 & OUVRE10, 170, 90, 189 

610 AS = "FENETRAGE EST LE": CALL HM,A$,95, 
20 
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620 A$ 
630 A$ 
€40 A$ 


$50 A$ 

60 
660 A$ 
670 A$ 
680 A$ 
690 A$ 
700 
710 



= "PROGRAMME DE " ; CALL HM,A$,95,30 
* "DE FENETRE, ": CALL RM, A$, 95, 40 
= "FENETRAGE.S EST": CALL HM,A$,95, 5 

= "IE CODE BIO MAC"; CALL M,A$,$5, 

m "LB PROGRAMME" : CALL HM, AS, 95, 80 
- "PEUT AOSSI": CALL HM,A$, 95, 90 
= "TOURNER SOUS": CALL HM,A$, 95, 100 
= "PRODOS.": CALL HM,A$,95,110 
GET A$: £ FERME 
& OUVRE20,90,20,2S9 
720 A$ - "CONCU ET REALISE PAR:": CALL HM, A 
& 25, 30 

730 A$ - "ROZAY FREDERIC": CALL HM,A$,25,40 
750 A$ - "ON GRAND MERCI A ERICK RINGOT" ; C 

ALL HM, A$, 25, 70 
760 A$ - "POUR LE PROGRAMME HGRECR" : CALL H 

M,A$, 25, 80 
770 GET A$: & FERME 

800 FOR I - 2 TO 1000: NEXT : TEXT 



Source 'FENETRAGE.S' 

Assembleur Big Mac 



i 

2 
3 

4 

5 

6 

7 
8 
9 
10 

u 

12 
13 

14 

lb 
16 

i I 



AFFICtiE / EFFACE UNE FENETRE 
EN GBJiPHIQUE HAUTE RKStiUITIOPi 



PAR F. ROZAY 



DEP 

NBAS 



IR I.TNNUH 



i 9 
20 
21 
22 



HI HEM 
CHRGET 
CHRGOT 
XD7 



23 HP AGE 



LST OFF 
ORG $9200 

$06 Per pour dcaain fenetre 

= s26 Adresae de la llvne HGR, 
obtenuc par MPOSN 

$50 entier extrali de FAC par 
CETADR 

= S73 valeur tie HI MEM 
SD1 
SR7 

- SE5 No de 1 'octet dans leqtiel se 

trouve Je point HGR 

$E6 No de la page HGR utilisrr 

fS20:pagel S40:paqe2i 



24 
2* 
P6 
27 
28 



AMPZPV 



$G3r6 



Adresse du sous-piugtamme a 
utlliser ai L cat execute 



29 VAT A 



t'RMNIIM 

GETDYTC 
CETADR 



39 HP OSS 



SD412 Emission d' un message 

d'orrcur feed* dans X-REii) 

$0995 Posit ionr.e TXTPTR sur 

1 ' Instruct ion BASIC tulvAntp 

5DD67 Ptetid le chlffre ou la valour 

dc la variable polntee par TXTPTR ec 1m 
range dans FAC 

SE6F5 meme chose que FRMNOM ma is 

avec des chlffres <256 

SE7S2 Transformo FAC en un tntlrr A 

2 octets et le range dans LINNUM 

SF411 Donne 1'adrease d« la Jlgne 



36 • iv«e le* coordonn*M do pain* I A : VERT X:H-LO Y;H-HI) 



BRANCHE LE C • 
SVR LE PROGRAMME * 
PR I SCI PAL • 




48 

47 

4R 

49 

AO 
51 
52 
53 
54 
55 

56 
57 
5S 
55 

eo 

62 



partle basse ct partie haute 
dp I 'ttdrp.nsp du debut du 
programme, les range 
: 'A f>MAlN dans ArWEHV pour que lc 

programme soit execute 
sta ampf.RV*-1 si un 'A' est Tenccr.*r4 d*n% 

i« pro^raflwe BASIC 
loa 0<high change la valeur du emus 

pour que le programme 

STA HIMEM ne jroJt pas ecrasc j»r -e* 

variables du programme 



IJJA 
5TA 
LdJA 
CMP 
BEQ 
BIT 



LDA 
CMP 
' BNE 
YAPRQDQS LDA 
STA 
BIT 



* PROGRAMME PRINCIPAL 



€3 
64 
65 
66 
67 

68 YA16K 
69 
70 
■I 
72 
73 
74 

75 MA TW 
76 

II 

76 MAINl 

79 
BO 

81 

8? 

83 

R4 
85 

86 

87 
H8 

89 
90 
91 
92 

93 

94 

»s 

94 

97 
98 
99 
100 

101 

102 

:c5 



t?HIGH 
UIMEMfl 
SbFOO 
H4G 

YAPRQDQS 
SCOBS 
laizoage 
BIT SC0B3 
SFFFF 
t$FA 
YA16K 
tS70 
HSAUVE 
$CU81 

t$FF 

HIMEM 
t$bF 
HIMEM+1 



BASIC 



volt si on esc sous PraLr„< 



voit si on a une carte 



ProDOS Jior« on saiivmr* 
1'imeoe a partir de S700C 



LDA 
STA 
LDA 
STA 
PTS 
LPA 
STA 
BIT 



ot on 



rechange la valeur f1< 
{-s$6FFF) 



tSEO 

HSAUVE 
SC081 



si on a une cJrte langagf 
alOtS on sauveia 1' image a 
partir de $E000 



EOU 
LDY 
JSR 
CMP 

BNE 
,/Sfl 
INY 
CPT 
BNE 
JSR 
CPX 



iO 

CHRGOT 
CMD.Y 
'4 ' ec le compete 



prend ce qv ' I ' y a aptea le 



AUTRCMDl 
CHRGET 



aux nnnvBlles instructions 
Jci on co/nporc ovec 'OVVPE' 



prend la premiera coordennAt* 
mmpare avec le bas de 

si e'est sup^rleur alors 



fait dc memo avec la deuxlemt* 



44 

NAIN1 
CETBYTC 
4192 
1 ' ecran 
BCS ILLEGAL 

'ILLEGAL QUANTITY' 
STX TABLE 
JSR GETBYTC 
coordonn £e 
CPX 4192 

BCS ILLEGAL 
STX TABLE' I 
JSR CHRGET 
JSR FRMNUM 

seri ©ux 
JSR GETADPl 

dSpasscr 256 
JSH SEPTAL 

CPX 440 toujour* rmtte comparalson 

pnur volt si on sort 



ceCte fols ci e'eat pius- 
les coordonn6ca peuvent 



DCS ILLEGAL 

STX TAHI.Kt? 

JSR CHRGET 

JSR FRMNUM 

coordonnec 

JS* GETAPM 

JSR SEPTAL 

CrX 44*. 



dm la tenptre 



ei encore pour la dernicrc 



Pom's n 8 26 



104 




BCS ILLEGAL 




176 


CPY 


DROITE 




105 




STX TAMI.E+3 




177 


BNE 


CADRE 1 


affichc le trait 


106 




JSP VEPIFIE 




178 


LDA 


(HBAS) , Y 




W7 




JSR COORTK 




179 


ORA 


tSOF 




109 




JSR SA VE 


on aauve cc qu'il y a sous la 


160 


STA 


(NBAS! , t 












181 


INC 


BUFF 


cc id pdrtic droitc 


109 




JSR COORTK 




182 


LOA 


BUFF 




1W 




jsr CAnap 


ft nn Atfiche ia fenetre 


183 


LDX 


to 




111 








184 


LOY 


to 




112 




JMP PA TA 


r*rour an programme BASIC 


IBS 


JSR 


IIPOSN 




113 








186 


LDY 


GAUCHE 




114 


AUTHUiVl 


EUU ' 




187 


LDA 


(HBAS) , Y 


ct encore avee la trolalcmc 


as 




LDY t5 






ligne 




11S 




JSR CHRGOT 




188 


AND 


tflF 




117 MAIN3 


CMP CHD, Y 


ccttc tola ei on compare avee 


199 


DHA 










la comma nde 


'FERME ' 


190 


STA 


(HOASl , Y 




118 




ONE AUTRQMD2 




191 


INY 






119 




JSR CHHGET 




192 


LDA 


4500 




120 




INY 




1 93 CAUKt'4 


STA 


(HBASI , Y 


mainzenant rempiit avee des 


121 




CPY #9 






octets 'vides ' 


132 




BNE HAJN2 




194 


INY 




pour avoir une fenetre noire 


123 




JSR COORTK 






A 


1 'inttrieur 


124 




JSR RECUP 


et on referme tout s implement 


195 


CPT 


DROITE 




125 








196 


BNE 


CADRE 4 




126 




JHP DATA 


rot our am programme BASIC 


1 97 


LDA 


(HBASI , r 




127 








198 


AND 


iSFS 


affichc la partlc du cjtdrc 


129 


ILLEGAL 


LDX t$3S 






Qui ae Ivvvtr 


A dioite 


129 




JMT ERROR 


moduli (J/I 'ILLEGAL QUANTITY 


199 


ORA 


tsic 








ERROU ' 




200 


STA 


(HBAS) , Y 




130 








201 


INC 


BOFF 




111 




toy #5io 




202 


LDA 


BUFF 




132 




J MP ERROR 


prodult un 'SYNTAX ERROR' 


203 


LOX 


to 




133 








204 


LDY 


to 




134 






205 


JSR 


HPOSN 




135 


» 


* 




206 


LOY 


GAUCHE 




Lib 


• FENETRE • 




207 


LDA 


(HBAS) , Y 




137 


* 


• 




208 


AND 


IS OF 




138 






209 


ORA 


tSOE 




139 








210 


STA 


( HBAS) , Y 




140 


pa/we 


etc 




211 


INY 






141 




LDA DAS 




?\? 


UiA 


tso 




142 




SUC 63 




213 CADRE5 


STA 


(HBAS) , Y 


le vide 


143 




STA BAS 




214 


INY 






J 44 




uiA haut 




215 


CPY 


DROITE 




14S 




5TA BUFF 




216 


HNF 


CAORF.^ 




146 




LOA HAUT 




217 


LDA 


IHDAS) , Y 




147 




LDX #0 




218 


AND 


tSFO 




148 




LDY 60 




219 


ORA 


tS38 




149 




JSP IIPOSN 




220 


STA 


(HBAS) , Y 




150 




LDY GAUCHE 




221 CADRE2 


INC 


BUFF 


cot Co fols ci on affichc 


151 




LOA IHBAS) , Y 


oftichc d'abord 1 'octet dana 




couce la parrie 






le coin gauche en haut 


222 


LDA 


BUFF 


vert icale de la fenetre 


152 




ORA t$70 




223 


LDX 


to 




153 




STA (HHAS),Y 




224 


LDY 


to 




154 




I NY 




225 


JSR 


HPOSN 




155 




LOA tS7F 




226 


LDY 


GAUCHE 




156 


CADREO 


STA (HBAS) , Y 


puis* va jusgu'au bout de la 


227 


LDA 


tS07 








Hone en attichanz 


228 


STA 


(HBAS) , Y 


avee d'abord 1 'octet J gauche 


157 




INY 


un c ra 1 c 


229 


INY 




158 




CPY DROITE 




230 


LDA 


tso 




159 




BSE CAOREO 




231 CADRE3 


STA 


(HBAS) , Y 




160 




LDA (HBAS) , Y 




232 


INY 




puis le mil leu 


161 




ORA iS07 


affichc 1 'octet en haut a 


233 


CPY 


DROITE 








droit e 




234 


BNE 


CADRE3 




162 




STA (HBAS) , Y 




235 


LOA 


tS70 




163 




INt: BUFF 




236 


STA 


IHBAS) , Y 


ct en fin 1' octet a" drolte 


164 




LDA DUFF 




237 


LDX 


BUFF 




165 




LDX tO 




238 


CPX 


BAS 




166 




LDY tO 




239 


BNE 


CADRE2 




167 




Jsh HPOSM 




240 


INC 


BUFF 




169 




LDY GAUCHE 


fait de racmc avee la seconds 


241 


LDA 


BUFF 








H(jnt> 




242 


LDX 


to 




169 




LDA fttBAS) , Y 




243 


LDY 


to 


one fols le milieu finl nn 


170 




ORA tS/H 






fait la mcmc 




171 




STA (HBAS) , Y 




244 


JSR 


HPOSN 


chose qii'en haiir Ijt 


172 




INY 






fenetre mala 


cn aena 


173 




LDA H7F 




245 


LDY 


GAUCHE 


Inverse 


174 CADREl 


STA f HRA S) , Y 




246 


LDA 


(HBAS) , Y 




175 




INY 




247 


AND 


tSOF 





Pom's n° 26 



246 




ORA 


tSOE 


326 


LDA 


HAOT ohoisi* au riAhiiz du 


249 




St* 


IHRA5), Y 


327 


STA 


BUFF 


250 




iny 




326 


INC 


BAS 


251 




IDA 


tso 


329 SAVE1 


LDA 


BUFF 


252 


CADRE C 


OTA 


(HBAS) , Y 


330 


LDX 


to 


25 J 




1NY 






THY 


to 


254 




CPY 


DROITE 


332 


JSR 


HPOSN 


255 




BNE 


CADRE 6 


333 


LUA 


HBAS 


256 




•IDA 


(1IDA5) , Y 


334 


STA 


DEP 


251 




AND 


$SFt 


335 


LDA 


HBAS t I 


25B 




ORA 


tS38 


336 


STA 


DEP+1 


259 




SW 


(HRAS), Y 


- 33/ 


LDA 


HPAGE 


260 




INC 


BUFF 


339 


PHA 




2hl 




t.r>A 


huff 


339 


LDA 


HSAUVE 


262 




LDX 


to 


340 


STA 


HP AGE 


263 




LDY 


90 


341 


LDA 


BUFF 


264 




JSR 


HPOSN 


342 


LDX 


to 


265 




LDY 


GAVCHF. 


143 


LDY 


to 


266 




LDA 


(H3A5J , Y 


344 


JSR 


HPOStJ 


261 




AND 


i$ir 


345 


PLA 




26B 




ORA 


t$lC 


346 


STA 


HPAGE 


269 




STA 


(HBAS) , Y 


U7 


LDY 


GAUCHE 


270 




INY 




346 


DEY 




271 




LDA 


tsoo 


349 &AVB2 


INY 




272 


CADRE 7 


STA 


(UPAS) , r 


350 


LDA 


(dep) , y 


273 




INY 




351 


STA 


tHBAS) , Y 


274 




CPY 


DROITE 


352 


CPY 


DROITE 


275 




BNE 


CADRE J 


353 


BNE 


SAVE2 


276 




LDA 


(NBAS) , Y 


354 


INC 


BUFF 


277 




AM 


tSFH 


355 


LDX 


BUFF 


276 




ORA 


teic 


356 


CPX 


BAS 


2/9 




STA 


tHHAS) , r 


357 


BNE 


SAVE! 


280 




INC 


DUFF 


359 


RTS 




261 




LDA 


BUFF 


359 






282 




UJX 


to 


360 •ttttf#+* +++*■*■***' 


293 




LDY 


to 


361 ' 




* 


294 




JSH 


HPOSN 


362 * RECUPERET 


* 


295 




LDY 


GAUCHE 


363 * RAf4-> IMAGE • 


286 




LDA 


IHUAS) , I 


364 4 






297 




ORA 


t$79 


365 * + *■* + ** 




288 




STA 


(HBAS) , Y 


366 






289 




INY 




167 RECUP 


LDA 


HAUT r6cup6rc ce qu'll y 


290 




LDA 


t$?F 




ooua la fcncere 


291 


CADRE 9 


STA 


t!t3ASI,Y 


368 


STA 


BUFF 


292 




INY 




369 


INC 


DAS 


293 




cry 


DROITE 


370 RF.CUPl 


BIT 


SC081 


294 




BNE 


GADM£9 


371 


LDA 


BUFF 


295 




LDA 


(NBAS) , Y 


312 


LDX 


to 


296 




ORA 


tsor 


373 


LDY 


to 


297 




STA 


( HBAS) f y 


174 


JSR 


HPOSN 


298 




INC 


tiUFF 


375 


LDA 


HBAS 


299 




LOA 


BUFF 


376 


STA 


DEP 


300 




UJX 


to 


377 


LDA 


HBAS+1 


301 




LDY 


to 


378 


STA 


DEP* T 


302 




JSR 


HPOSN 


379 


LDA 


HPAGE 


303 




LDY 


GAUCHE 


380 


PHA 




104 




LUA 


IHUAS) , X 


361 


LDA 


HSAUVE 


305 




ORA 


tS70 


392 


STA 


HPAC.r. 


306 




STA 


(HBAS) , y 


383 


LDA 


BUFF 


307 




INY 




384 


LDX 


to 


308 




LDA 


tS7F 


385 


LDY 


to 


309 


CADRE 8 


STA 


tH8AS>,Y 


386 


JSR 


HPOSN 


310 




INY 




387 


PLA 




311 




CPY 


DROITE 


3B9 


STA 


HPACE 


312 




BNE 


CADRE8 


389 


LDY 


GAUCHE 


313 




LDA 


(HBAS) , Y 


390 


DEY 




314 




ORA 


tS07 


391 RECUP2 


INY 




315 




STA 


IHBAS) , Y 


392 


BIT 


$C0B3 


316 




RTS 




393 


BIT 


SC083 


317 








394 


LDA 


(HBAS) , Y 


318 


*t*t*****t*t*t*tf-* 


395 


STA 


(DEP) , Y 


319 


i 






396 


CPY 


DROITE 


320 


* SAUVE 




397 


BNE 


RECUP2 


321 


' I MACE -> RAN ' 


39B 


INC 


BUFF 


322 








399 


LDX 


SOFT 


323 


****************** 


400 


CPX 


BAS 


324 








402 


5M! 




325 


SAVE 


BIT 


SC0B1 ssuvm co tju'll y a sous 1* 


402 










/entrtre dans la page 


4C2 







10 
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404 










445 


SBC 


TABLE 


AOS 








44« 


CMP 


98 


406 




* 






447 


BCC 


RECALE 


407 


* 


SEPTAL » 






4M 






408 




DIVISION * 






449 VERIF1 


LDA 


TABLE 13 


409 




PAR 1 * 








ronrrfonne* 


410 


* 


» 






450 


SEC 


\ 


411 








451 


SBC 


TABLE*? 


m 










452 


BHI 


INVERSEl 


413 


SEPTAL LDA 90 


rllvl.tt* Itrs coordonnees 




453 


CMP 


92 






horizontals 


par 7 




454 


BCC 


RECALE1 


414 




LDX LINNUM 


poor nhr/*ntr le num6.ro 


de 


455 










1 'octet dana 


loqvel 




456 


RTS 




41b 




LDY LttiNUM*! 


se crouve ie point HCR 




457 






41 £ 




JSR 1IPOSH 






453 INVERSE 


LDA 


TABLE 


417 




LDX XD7 






459 


LDX 


TABLE* 1 


418 




RTS 






460 


STA 


TABLE* 1 


419 










461 


STX 


TABLE 


420 




PREND LES 






462 


JMP 


VERIF2 


421 


* 


CQQRVWNVES 






463 






422 





POUR LA FENETRE 






464 RECALE 


LDA 


TABLE 


423 










465 


CLC 




424 


CO0RTK LDA TABLE 






466 


ADC 


98 


42b 




STA HAL IT 






467 


STA 


TA3LtC*l 


426 




LDA TADLE 1 1 






468 


JMF 


VERIFl 


427 




STA HAS 






469 






428 




LDA TABLE*2 






470 INVERSEl 


LDA 


TABLE* 2 


429 




STA GAUCHE 






471 


LDX 


TARIFF.* 3 


430 




LDA TABLE* 3 






472 


STA 


TADLE ' 3 


431 




STA DKOITF. 






4 n 


STX 


TAHI.E+? 


432 




RTS 






474 


JMF 


VERIFl 


4'A'A 










47b 






434 


* 


mi i it** ***** 






476 RECALE1 


LDA 


TABLE *2 


435 




a 






477 


CLC 




436 


* 


VERIFIE 4 






47 a 


ADC 


92 


437 


* 


1 






479 


STA 


TABLE* 3 


438 


m *-*t+*t*++* 






480 


RTS 




439 










481 






440 


VERIFIE LDA TABLE*! 


cuiapaic r.-. f CQQcdonnt 


OJ 


482 TABLE 


HEX 


00000000 






vert lea J os 






483 CMD 


ASC 


•OUVREFEf 


44J 




CMP TABLE 


loa arrange A la vaieur 


is 


484 HAUT 


HEX 


oo 






plus p«tire da Jj 




485 BAS 


HEX 


00 


442 




BCC INVERSE 


fen«tre ou lea Inverse 


•i ia 


486 CAUCUS 


HEX 


00 






premiere est 






487 DROITE 


HEX 


00 


443 


VERIF2 LDA TABLE+1 


supirieure A la sccondc 




499 8 OFF 


HEX 


00 


444 




SEC 






489 HSAUVE 


HEX 


00 



fait de memo avec les 



Recapitulation 
'FENETRAGE' 

Apres avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE FENETRAGE.AS9200.LS376 



9290- 


F4 


94 


20 


45 


94 


20 


F4 


94 


92D0- 


95 


8D 


74 


99 


AD 


70 


95 


A2 


9298- 


20 


CS 


92 


4C 


95 


D9 


60 


AO 


9208- 


00 AO 


00 


20 


!1 


F4 


AC 


7? 


92A0- 


OS 


20 


37 


00 


D9 


66 


95 


DO 


92E0- 


95 


m 


26 


09 


70 


91 


26 


ca 


92A8- 


1 J 


20 


Bl 


UU 


C8 


CO 


09 


00 


92F.8- 


A9 


7F 


91 


26 


C8 


CC 


73 


95 


92B0- 


F3 


20 


FA 


94 


20 


92 


94 


4C 


92F0- 


DO 


F8 


Bl 


26 


09 


07 


91 


26 


92B8- 


95 


D9 


€0 


A2 


35 


4C 


12 


D4 


92F8- 


EE 


74 


95 


AD 


74 


95 


A2 


00 


92C0- 


A2 


10 


4C 


12 


04 


18 


AD 


71 


9300- 


AO 


00 


20 


11 


F4 


AC 


72 


95 


92C8- 


95 


E9 


03 


3D 


71 


95 


AD 


70 


9308- 


Bl 


26 


09 


73 


91 


26 


C8 


A9 



9200- 


A9 


40 


8D 


F6 


03 


A9 


92 


8D 


9208- 


F7 


03 


A9 


00 


85 


/3 


A9 


92 


9210- 


85 


74 


AD 


00 


BF 


C9 


4C 


ro 


9218- 


0D 


2C 


S3 


CO 


2C 


83 


CO 


AD 


9220- 


FF 


FF 


C9 


FA 


DO 


11 


A9 


70 


9228- 


8D 


75 


95 


PC 


81 


CO 


A9 


FT 


9230' 


85 


73 


A9 


6F 


85 


74 


60 


A3 


9238- 


E0 


8D 


75 


95 


2C 


81 


CO 


60 


9240- 


AO 


00 


20 


B7 


00 


D9 


66 


95 


9248- 


DO 


55 


20 


Bl 


00 


C8 


CO 


04 


9250- 


DO 


F3 


20 


F5 


E6 


E0 


CO 


BO 


9258- 


65 


8E 


62 


95 


20 


F5 


E6 


EO 


9260- 


CO 


BO 


bB 


BE 


63 


95 


20 


Bl 


9268- 


00 


20 


61 


DD 


20 


52 


£7 


20 


9270- 


E8 


94 


E0 


28 


BO 


45 


8E 


64 


9278- 


95 


20 


ai 


00 


20 


67 


DD 


20 


9280- 


52 


E7 


20 


E8 


94 


E0 


28 


BO 


$288- 


32 


BE 


65 


95 


2 'J 


OD 


95 


20 



SI L 'APPLICATION 
SORT DE LA FENETRE 
ALORS , A LA 
FERMETURE DE CETTE 
DERNIERE , TOUT CE 
QUI A ETE MODIFIE 
EN DEHORS DE LA 
FENETRE RESTERA - 
TEL QUEL. 
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9310- IF 91 26 C8 CC 73 95 DO 
931 U- F8 Bl 26 09 OF 91 26 EE 
9320- 74 95 AD 74 95 A2 00 AO 
9323- 00 20 J 1 F4 AC 12 95 Bl 
9330- 26 29 IF 09 1C 91 26 CB 
9330- AS 00 91 26 C8 CC 73 9.5 
9340- DO F8 Bl 26 29 F8 09 1C 
9348- 91 26 EE 74 95 AD 74 95 
9350- A2 00 AO 00 20 11 F4 AC 

9359- 72 95 Bl 26 29 OF 09 OE 

9360- 91 26 C8 A9 00 91 26 C8 
9368- CC 73 95 00 FB Bl 26 29 
9370- FO 09 38 91 2 6 EF. 74 95 
93 78- AD 74 95 A2 00 AO 00 20 
9380- 11 F4 AC 72 95 A3 07 91 

9389- 26 C8 A9 00 91 26 CB CC 

9390- 73 95 DO F8 A9 70 91 26 
9398- AE 74 95 EC /l 95 DO D5 
93A0- EF. 14 95 AO 74 95 A2 00 
93A8- AO 00 20 11 F4 AC 72 95 
93B0- Bl 26 29 OF 09 OE 91 26 
93B8- Q8 A9 00 91 26 C8 CC 73 
93C0- 95 DO F8 Bl 26 29 FO 09 
93C8- 38 91 26 EE 74 95 AD 74 
93D0- 95 A2 00 AO 00 20 11 F4 
93D8- AC 72 95 Bl 26 29 IF 09 
93E0- JC 91 26 CM A9 00 yi 26 
93E8- C8 CC 73 95 DO F8 Bl 26 
93F0- 29 FB 09 1C 91 26 EE 14 
93F8- 95 AD 74 95 A2 00 AO 00 
9400- 20 11 F4 AC 72 95 Bl 26 
9408- 09 78 91 26 C8 A9 7F 91 
9410- 26 C8 CC 73 95 DO F8 Bl 
9418- 26 09 OF 91 26 EE 74 95 
9420- AD 14 95 A2 00 AO 00 20 
9428- 11 t'4 AC 72 9b Bl 26 09 
9430- 70 91 26 C8 A9 7F 91 26 
9438- C8 CC 73 95 DO FB Bl 26 
9440- 09 07 91 26 60 2C 81 CO 
9448- AD 70 95 80 74 95 EE 71 
9450- 95 AD 74 95 A2 00 AO 00 
9458- 20 11 F4 A5 26 85 06 A5 
9460- 27 85 07 A5 E6 48 AD 75 
9468- 95 85 F.6 AT) 74 95 A2 00 
9470- AO 00 20 11 FA 68 85 F.6 
9478- AC 72 95 88 C8 Bl 06 91 
9480- 26 CC 73 95 DO F6 EE 74 
9408- 35 AE 74 95 EC 71 35 DO 
9490 CO 60 AD 70 95 3D 74 95 
9498- EE 71 95 2C 81 CO AD 74 
94AU- 95 A2 00 AO 00 20 11 F4 
94A8- AS 26 85 06 AS 21 85 01 
94R0- AS F.6 48 AD 75 95 85 E6 
94B8- AD 74 95 A2 00 AO 00 20 
94CQ- 11 F4 68 85 F.6 AC 72 95 
94C8- 88 CB 2C 63 CO 2C 83 CO 
94D0- Bl 26 91 06 CC 73 95 DO 
94D8 FO EE 74 95 AE 74 95 EC 
94E0- 71 95 DO B7 2C 81 CO 60 
94E8- A9 00 A6 BO A4 51 20 11 
94F0- F4 A6 ES 60 AD 62 95 8D 
94F8- 70 95 AD 6J 95 BD 71 95 
9500- AD 64 95 80 72 95 AD 65 
9508- 95 80 73 95 60 AO 63 95 
9510- CD 62 95 90 19 AD 63 95 
9518- 38 ED 62 95 C9 08 90 ID 
9520- AD 65 95 38 ED 64 95 30 
9528- 20 C9 02 90 2D 60 AD 62 



9530- 35 AE C3 95 8D 63 95 BE 

9538- 62 95 4C 15 95 AD 62 95 

9540- 18 69 08 80 63 95 4C 20 

9548- 95 AD 64 95 AE 65 95 8D 

9550- 65 95 BE 64 95 4C 20 95 

9558- AD 64 95 18 69 02 8D 65 

9560- 95 60 00 00 00 00 4F 55 

9568- 56 5? 45 46 45 52 40 45 
9570- 00 00 00 00 00 00 



Recapitulation 
'HGRECR.LIB' 

Aprs$ avoir saisi ce cods sous 
moniteur, vous le sauvegarderez par 
BSAVE HGRECR.LIB AS100€.L$39B 

1000- 20 58 FF BA CA CA 9A 18 
1008- 63 69 A£ 35 CE 68 69 00 
1010- 85 CF AS £4 4S A5 E7 48 
1018- 20 BE DE 2Z £5 DF 20 6C 
1020- OU AO 00 Bl 83 85 08 C8 
1028- Bl 83 85 06 C8 Bl 83 35 
1030- 07 20 BE DE 20 05 El A5 
1038- Al 35 EO A5 AO 85 El 20 
1040- F5 £6 86 £2 AS 01 85 El 
2043- AO 00 90 43 92 OS 48 A9 
1054- 00 85 £4 A9 3F 20 58 FF 
1058- 50 26 A9 7F 85 £4 68 38 
1Q6G- £9 IF 20 5c FF 50 19 18 
1068- A5 EG 68 06 85 EO DO 02 
1070- E6 E2 68 AM CB C4 08 DO 
1076- 01 68 85 £7 68 S5 E4 60 
1080- BA CA CA 9A OA A8 Bl CE 
1088- 18 65 CE 43 CB Bl CE 65 
1090- CF 43 At EO A4 El A5 £2 
1098- 20 11 F4 68 A8 €8 AA A9 
20AO- 00 20 02 F€ JC 58 FF 60 
10A8- 3F 00 80 00 84 00 8A 00 
IQBQ- 90 00 9D 00 AA 00 B5 00 
10D8- CI 00 CS 00 CD 00 D5 00 
10CO- E2 00 EA 00 EE 00 F3 00 
10C8- F6 00 FD 00 OB 01 13 01 
10D0- ID 02 28 01 32 01 3E 01 
10D8- 48 01 52 01 SC 01 67 01 
10EV- 6B 01 /O 01 29 01 81 01 
10F.fi- 8A 01 94 01 Al 01 AD 01 
10FO- B9 01 C4 01 DO 01 DO 01 
10F8- E7 01 F2 01 FE 01 07 02 
1100- OF 02 1C 02 25 02 31 02 
1108- 3D 02 49 02 53 02 5F 02 
1110- 6C 02 77 02 90 02 8B 02 
1118- 96 02 A2 02 AE 02 B7 02 
1120- C2 02 CA 02 Dl 02 D9 02 
1128- 5B 49 02 00 52 22 20 24 
113U- 2C 00 08 24 IF 36 06 00 
1138- 3A 67 3C OC €C BE 2U IE 
1140- 2F. IE FE 2C 00 E7 OC 25 
1148- 15 F5 AB 15 IF 15 IF 77 
1150- 29 00 OC OC DC 3B 2F. 96 
1158- 1 7 40 Z£ 24 00 60 1C BF 
1160- AE 17 76 65 1C 00 16 07 
1168- 00 08 24 05 00 92 1C 1C 
1170- 24 OC OC 06 00 92 OC OC 
11 73- 24 JC JC 06 00 3C JC 4C 



1180- 6E IE 16 3F 17 Ot> OD D£ 
1188- 07 00 20 8D 3A 3F 77 31 
1100- 05 00 89 F6 04 00 3F 4C 
1198- 11 35 00 12 05 00 OC OC 
11A0- D6 DA IE 06 00 OC 25 1C 
11A8- 3F 17 J 6 2E IE OE 2D OC 
JltfO- 24 07 00 24 BC 96 31 1 7 
linn- 2D 04 00 65 £4 3F 17 95 
J J CO- BA 2E 2D 25 00 25 OC 3C 
IIC8- 3F 37 92 15 2D OC 24 00 
11D0- 3A 27 OC OC OC 36 36 F5 
11D8- 3E 00 38 27 2C 20 F5 AA 
11E0- 36 IE 3F JC 04 00 AD F6 
11EQ- 3F JC 24 25 OC OC 35 00 
UFO- OC OC 3C 3F 77 92 36 OS 
11F8 00 E7 64 2D 15 BE 15 F6 
1200- 3F JC 2C UU E/ 64 2D lb 
1208- 36 II IE I I 3F 04 00 08 
1210- 16 06 00 08 16 BE 05 OO 
121 B- 91 F.2 IC 1C OC OC OC 
.1220- 00 38 67 89 R5 3F 3F OA 
1228- 00 93 62 OC OC IC 1C IC 
1230- 06 00 OC OC JC 3F 17 95 
1238- OA 16 05 00 30 ZE 2C 24 
1240- IC 3F 17 36 36 OE 2D 25 
1248- 00 3A 3 7 6E 09 24 67 E4 
1250- IC IE IK 2E VO 3F 24 2C 
1258- 2D 15 BE OE BE 3F 27 2C 
1260- 00 89 F2 3F IC 24 24 OC 
1268- 20 15 06 00 09 36 IF. 3F 
1270- 27 24 24 2C ZD 25 3E 00 
1278- 39 B7 3A 24 24 24 2D 2D 
1280- 96 92 3F 04 00 39 B7 1A 
1233- 24 24 24 2D 2D 06 00 11 
1290- 35 3E 3F IC 24 24 OC 2D 
1298- ib 00 2M 20 24 FC IB 36 
12A0- 36 36 4D 21 24 00 52 3A 
12A8- 67 24 24 3C 2D 06 00 SB 
12B0- 72 2D OC 24 24 3C 00 73 
12B8- OE 15 DF 23 24 24 6C 09 
12C0- IE IE 06 00 89 12 3F 3F 
12C3- 24 24 24 05 00 EO JC 36 
l'JDO- 3b 3b 40 21 24 24 BC 06 
1208- 00 OE 58 24 24 24 OF 33 
12E0- 2E IE 36 2E 00 92 E7 21 
12E8- 24 OC 2D 15 36 36 17 05 
12F0- 00 65 3C 38 3F 36 2E IE 
12F3- 36 05 00 AA 25 IF 3F 20 
1300- 24 64 2D 15 36 36 00 77 
1303- 15 15 DF 23 21 24 2C 2D 
1310- 15 BE 06 00 E7 64 2D 15 
1318- 97 15 F6 3F JC 04 00 24 
1320- IF 28 2D F5 92 33 2E 00 
1128- 9? E7 24 74 6C 09 16 36 
1330- RE 05 00 92 Jc IC 24 24 
1338- 4D 31 36 BE 06 00 F6 IE 
1340- 24 24 24 40 31 36 BE 35 
1348- 07 00 OC OC FC IB 76 16 
1350- 17 6E 09 E4 04 00 IC IC 
1358- 6C 09 FC D6 36 05 00 OC 
1360- OC 3C 3F 77 92 17 2E 2D 
1368- 25 00 24 2C BS D2 33 2E 
13/0- 2D OO JC JC 56 4A OE Ob 
13 IB' 00 24 3C B7 52 31 3E 3F 
1380- 00 25 3F 36 2D 25 24 3F 
1 188- 3F 36 36 2D 2D 25 24 24 
1390- IF IF IF 36 36 36 20 2D 
1398- 2D 05 00 
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Des disquettes sans DOS. . . 

Des disquettes qui se presentent. . . 

Des disquettes en 35 ou 36 pistes. . . 

n rut u ...BOOTDATA 

Dominique Ottello 



Suite anx di verses interventions 
de lecteurs concemant ^utilisation 
de la 36eme piste (voir par 
exemple le numero 23 de Pom's), 
voici un petit utilitaire qui permet 
d'automatiser le processus 
d'agrandisscmcnt d'une disquette 
DOS 3.3. 

D pemiet en particulier : 

• de formater une disquette sur 

35 pistes ; 

• de formater une disquette sur 

36 pistes; 

• de lib&er les pistes 1 et 2, cn 
effagant k DOS (sans effacer 
les fichiers dventuellemem 
presents) ; 

• d'inscrirc un message diver- 
tissement sur la piste 0, sccteur 
0, affiche lors du boot de cette 
disquette. 



Son utilisation est tres simple : 
BRUN BOOTDATA 

affiche une suite de valeurs dc 
CALL, qu'il suffit de lancer pour 
exgeuter l'une des quatre 
operations ci-dessus. 



11 fonctionne avee le DOS 3.3 
(48Ko) standard, ainsi qu'avcc Ic 
Diversi-DOS. Le source est en 
Big Mac et contient, aux lignes 
565 a 569, le texte du message a 



afficher lors du boot. Ce texte 
peut ctrc remplac6 par celui de 
votre choix, dans ia limite dc 256 
octets enure les Etiquettes T0S0 et 
FIN. 



Comment faire ? 



Apr6s avoir fait "BRUN BOOTDATA" cette liste de CALLs apparait 



Operation 



Lecteur 1 Lecteur 2 



Message lors du boot sur la disquette de 
donnees : 768 
Liberation des pistes 1 & 2 occup6es 
habituelletnent par le DOS : 774 
Initialisation 35 pistes et operations 1 et 
2 : 780 
Idem 3 mais en 36 pistes : 786 



771 

777 

783 
789 



Ainsi, pour crSer une disquette de DATAs dans le lecteur 2, sur 36 
pistes, vous ferez CALL 789. Pour Iib6rer les pistes 1 & 2 puis inscrire 
un message en cas de boot, vous ferez CALL774 puis CALL 768 si 
['operation concerns le lecteur 1. 

Attention : disquettes DOS 3.3 seulement... 



Source 'BOOTDATA.S' 
Assembleur Merlin 



ORG 53000 



St 



MOTOROFF EQU 5C0B8 

DISKOl EQU SCOHA 

DISHOZ EQU 5C06B 

Q6H EQU SCOBD 

Q7L EQU $C08E 



/Afrit motcur 
; Lecteur 1 
; Lecteur 2 

.-Utilise! pour rerht>rrhrt 
/disquette protegee 



CT0S0D1 


F.QU 


S300 


j CALL en 


768 




REG1 EQU 


$19 


; Sauvegarde 




CT0S0D2 


EQU 


S303 


/CALL en 


771 




REG2 EQU 


$3A 






CP1P2D1 


EQU 


S306 


/CALL en 


/7« 




FLAG ERR EQU 


SIC 


iDidpeau erreur 0Q 


pas erreur 


CP1 P2D2 


EQU 


$309 


/CALL on 


777 












CIN35D1 


EQU 


S30C 


/CALL en 


780 












CIN35D2 


EQU 


S30F 


/CALL en 


703 












CIN36D1 


EQU 


$312 


/CALL cn 


786 




• IMPLANTATION DES CALL 


• 




C1M36D2 
* 


t'qu 


$315 


/CALL en 


789 




1 








RWTS 


EQU 


$3D9 


/Routine 


DOS 


ecrlture secteur 










CQVT 


EQU 


SFDED 


; Ho u cine 


sucLlti ta«cC*re 


LDA 


*$AC 






HOME 


EQU 


SFC58 


/Routine 


effacetnent icran 


STA 


CT0S0D1 


/ Implant at inn cai.i. 


en 768 


■ 












STA 


CT0S0D2 






CATALOG 


EQU 


SAE9E 


/Routine DOS 


cont ruction de 


STA 


CP1P2D1 






< 






la piste Sll 


ICATAlOQ et vrtxii 


STA 


CP IP 2D 2 






MOTORON 


EQU 


SC089 


/Mtse en 


route moteur 


STA 


CIN3SD1 
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STA 
STA 
ST A 
IDA 
STA 
LDA 
STA 
LDA 
STA 



CIN35D2 

CIN36D1 

CIN360? 

4IT0S0D1 

CT0S0D1*1 

4>IT0SCD1 

CT0S0D1 t2 

4IT0S0D2 

CTCS0D2+1 



763 
786 
789 



ItfV 'TAPER CAU XXX" 

&SC " +--8D8D8D8DFF 

VTO ASC -Construction CATALOG eC VTOC' 

P36 ASC "Liberation piste 3€"BDO0 

CAT ASC -Mlse A jour VTOCBD00 



' ECRSTURE PISTE SECTEUR 



QDOO 



LDA 


4>IT0S0D2 










STA 


CTQS0D2+2 










LDA 


4P1P2D1 


* 








STA 


CP1P2D1*! 


IT0S0D1 


LDA 


tsoi 


/Lecteur 1 


LDA 


<9>P1P2DI 




STA 


LECTt.UK 




STA 


CP IP 20 1*2 




RNF. 


T TO SO A 




LDA 


0P1P2D2 


IT0S0D2 


LDA 


t$02 


/Lecteur 2 


STA 


CP1P2D2+1 




STA 


LECTEUR 




LDA 


0>P1 P2D2 


I TO SO A 


JSR 


PRQTEC 




STA 


CPlP2D2t2 


ITOSO 


LDA 


t$00 




LDA 


0IN3SD3 




STA 


FLAGERR 


,Mlse a zero fc -r;. 


STA 


CIN35D1*! 




LDA 






LDA 


t>IN35Dl 




STA 


REQ1 




STA 


CTN35D1+2 




LDA 


t>P0 




LDA 


0IN35D2 




STA 


REG2 




STA 


CIN35D2+1 




JSR 


MESSAGE 




LDA 


0>IN35D2 




LDY 


fSOO 


/Chargement Tampon XOB pour 


STA 


CJN35D2+2 


RC1.0 


IDA 


TQSO, r 




LDA 


IN36D1 




STA 


TAMPON, Y 




STA 


CIN36D1*1 




I NY 






IDA 


0>INJ6V1 




• CMP 


tSFF 




STA 


CIN36D1 '2 




BNE 


BCLO 




LDA 


8IN36D2 




IDA 


tsoo 


/Numexo volume 


STA 


CIN'ibn?* I 




STA 


VOLUME 




LDA 


4>IN3CD2 




LDA 


tsoo 


/Nutnero piste 


STA 


CIN36D2*? 




STA 


PISTE 










LDA 


tsoo 


/Nu/nero secteur 


* 






STA 
LDA 


SF.CTF.ISR 
1502 


i Command* ecrlturc 


- MESSAGES DE 


5 CALL * 




STA 
JSR 


C0M4ANDE 
RWDISK 




* 






RTS 







JSR SFE84 

JSR SFB2F 

JSR SFES9 

JSR SFE93 

JSR HOME 



/Mode NORN A L 
.•Mode TEXT 
/Clavier cn cntrdc 
.-video en sortie 



LIBERATION PISTES 1 ET 2 



LDA tLISTCALL 





STA 


RE CI 


P1P2D1 


LDA 


tsoi 






LDA 


0>LISTMI.L 




STA 


LECTEUR 






STA 


REG2 




BNtt. 


PIP? A 






LDY 


0SOO 


P1P2D2 


LDA 


4S02 




BCLCALJ. 


LDA 


fREGl) , Y 




STA 


LECTEUR 






BEQ 


ZREG 


V1P2A 


JStt 


PROTF.C 






CMP 


0SFF 


PIP 2 


LDA 


tsoo 






BEQ 


RETCALL 




STA 


VOLUME 






JSR 


com 




LDA 


t$ll 


/Piste $11 (dec:17) Data 


I REG 


INC 


REGl 




STA 


PISTE 






BNE 


CALLl 




LDA 


tsoo 


/Secteur VTOC 




INC 


KF.G2 




STA 


SECTEUR 




CALLl 


BNE 


(3CLCALL 




LDA 


tsoi 


/ Cnnimanflf* 1 per ure 


RETCALL 


LDA 


0S1O 




STA 


COttMANDE 






STA 


522 /Fenette texte haute 




LDA 


IP12 






RTS 






STA 


RF.G1 




w 








LDA 


t>P12 




LISTCALL 


ASC 


M - 




STA 


REG2 






1NV 


"liste df.s cAuweneo 




JSR 


MESSAGE 




PO 


ASC 


"Ecrlture message piste secteur C8D0O 




JSR 


RNDISK 






ASC 


"Lecteur 1:768 ' Lvrt^ur y; 771 m 8U8u 




LDA 


tSFF 


/Correspond A 8 secteurs 


PI 2 


ASC 


'Liberation piste 1 et 2"8D0O 




STA 


TAMPON f S3C 


/Piste 1 socteura F 4 $ 




ASC 


-Lecteur 1:774 ' Lecteur 2:777 m 8D8D 




STA 


TAMPON *S 3D 


/Piste 1 7 A 


135 


ASC 


" initialisation 35 plsLes"8DO0 




STA 


TAMPON* $40 


/Piste 2 Fa 9 




ASC 


"Lecteur 1:780 • hcctcur 2:783"8D8D 




STA 


TAMPON* $41 




136 


ASC 


"initialisation 36 pistes'BDOO 




LDA 


t$02 


; Commands eciicuxe 




ASC 


"Lecteur 1:786 * Lecteur 2:?a9"8D8D 




STA 


C0f4HANDE 






ASC 






JSR 


RKD ISK 
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RTS 




STA 


REGS 










JSR 


MESSAGE 




a 






LDA 


ICAT 










STA 


REG1 




' INITIALISATION NORMALS (35) ' 


LDA 


t>CAT 










STA 


PEGS 











JSR 


MESSAGE 




• 






LDA 


tsxi 


/Piste 17 Catalogue 


I NASD t 


LDA 


tSQl 


STA 


PISTE 






ST A 


LECTEUR 


LDA 


tsoo 


/Scctour VTOC 




ONE 


1N35A 


STA 


SECTEUR 




IN3SD2 


LDA 


tS02 


LDA 


tsoi 


/Ordre de lecture 




STA 


LECTEUR 


STA 


COMMANDE 




IN35A 


JSR 


PROTEC 


JSR 


RNDISK 






LDA 


1135 


LDA 


tSFF 


;8 sect ours litres 




STA 


REG1 


STA 


TAMP0NtSC4 


.-Piste 36 secteurs F a 8 




LDA 


t>135 


STA 


TAMPON' SC5 






STA 


REG2 


LDA 


tS?A 






JSR 


MESSAGE 


STA 


TAMPON*$34 ilndtque 024 piste en VTOC 


IN35 


LDA 


t$04 / Commando FORMAT 


LDA 


ISO 2 


/Ordre ecrlture 




STA 


CQfiMANDE 


STA 


COMMANDS 






LDA 


tsoo 


JSR 


RNDISK 






STA 


VOUJNK 


RTS 







JSR 
LDA 



RhVISK 
I $60 



j Implantation d'un code RTS 
pouz 6vlLer 1 'dczltuiti du DOS 
sur la disguettc lors do I'INIT 



STA SASFF 



LECTURE OU ECRITURE DES 
SECTEURS DO DISOUE 





LDA 


LECTEUR 


/Implantation num4ro lecceur 










* 


STA 


SB5F8 


dans la routine JNIT du DOS 


• 
• 










LDA 


iVTG 




RNDISK 


LDA 


tsoo 


;Mlse 6 z6zo des erzeuzs 




STA 


REG I 






STA 


ERREUR 






LDA 


i>vro 






LDA 


tSFF 


,'Mise A FF du drape au erreur 




STA 


REC2 






STA 


FIJlGFRR 






JSR 


MESSAGE 






LDA 


t>IQB 


/Partle haute adresse IOB 




JSR 


CATALOG 






LDY 


tflOB 


/Partie basse 




LDA 


IS20 


/Restauratlon modif DOS 




JSR 


PJfTS 






STA 


SAEFF 






LDA 


tsoo 


/Remise 4 xtro location S48 




./.Iff 


f TOSQ 


.-Message piste sea em 




STA 


546 


.'servant au munlteur 




LDA 


FLAG ERR 






LDY 


tsoo 






CMP 


4SFF 




m 










BNE 


LP1 














RTS 














LP1 


JSR 


PIP/ 


j Liberation pistes i et 2 


' CONTROLS DES ERREURS 


* 




RTS 














• 
















» 








• 


LUA 


ERREOR 


/Gestion des erreuxs 


• INITIALISATION 36 PISTES ' 




CMP 


4S08 


/Erreur format ? 












BNE 


PROTECT 




t 










LDA 


tFORM 


/Ctiaroement adresse messaoe 












STA 


REG1 




IN36D1 


LDA 
STA 


isoi 

LECTEUR 






LDA 
STA 


§>FORM 
REG2 






BNE 


1N36 






BNE 


MESSAGE 




1N36U2 


LDA 
STA 


i$Q? 
LECTEUR 




PROTECT 


CMP 
BNE 


tsio 

VOLO 


/Erreur protection ? 


IN36 


JSR 
IDA 
STA 


PROTEC 

4136 

REG1 






LDA 
STA 
LDA 


tPROT 

REG1 

t>PROT 






LDA 


#>I36 






STA 


REG2 






STA 


REG 2 






BNE 


MESSAGE 






JSR 


MESSAGE 




vow 


CMP 


0S2O 


/Erreur volume ? 




IHA 


SS24 






BNE 


DRIVE 






STA 


SBSFE 


iAutorisc Ic DOS pour 36 pistes 




LDA 


tVOL 






JSR 


IN3S 


; Initl alisatlon 




STA 


REG1 






LDA 


4523 






LDA 


t>VOL 






STA 


Sbefe 


,-Remet DOS A valevr tnitlAle 




STA 


REG2 






IDA 


FIAGERR 






BNE 


MESSAGE 






CMP 


4SFF 




DRIVE 


CMP 


IS4Q 


/Erreur I/O ? 




BNE 


PIS23 






BNE 


LECTU 






RTS 








LDA 


tDRIV 




PIS 23 


LDA 
STA 
LDA 


iP36 

REG1 
4>P36 






STA 
LDA 
STA 


REG1 

t>DRIV 

REC2 
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DUE 


MESSAGE 


fifiGTD 


CMP 


ISHO 




BNE 


OKMESS 




LDA 


tLECT 




ST A 


REG1 




IDA 


t>lECT 




STA 


RF.G? 




BNE 


MESSAGE 


OXMESS 


LDA 


tsoo 




ST A 


FLACERR 




RTS 




MESSAGE 


LDY 


tsoo 


MESSA 


LDA 


(BECl), 




RF.Q. 


RF.TO 




INY 






JSR 


COUT 




JMP 


MESSA 


RETO 


RTS 





/Erreur iprritre 
/Pas d'erreur 



* TCUT CE QUI EST ENTRE 'TOSO' 

* ET TIN' SERA ECRIT SUR LA 

' PISTE SSCTEUR 



Remise a zero orapeau exreur 



iAfftchagc dw message 



TOSO 



* 


Messages 




FORM 


INV 


"ERREUR 


D< INITIAL1SATION"878DQO 


PHOT 


1NV 


-vi sQutrrrt: protegee- eieooo 


VOL 


INV 


'ERREUR 


NUMERO DE VQLUME m 878DQ0 


DR1V 


INV 


"ERREUR 


LECTEUR (ISO ERROR) "87BD00 


LECT 


INV 


•ERREUR 


DE LECTURE "8 78D00 



ROUTINE DE TEST UlSOUETTE 
PROTEGEE OU NGN ET DEMAND E 
POUR ENLEVER PROTECTION 



LABI 



PROTEC 



DRIVE? 
PRB 



PRDO 
PRH 1 



PROTIN 
RCLPR 



RETPROT 
RCU>Rl 



RETEiil 



JSP 
LDX 
LDA 
CMP 
RF.Q 
LDA 
JMP 
LDA 
LDA 
LDY 
LDX 
VEX 
BNE 
BEY 
BNE 
LDX 
LDA 
LDA 
SMI 
LDA 
RTS 
LDA 
LDY 
LDA 
CMP 
BEQ 
JSR 
I NY 
BNE 
LDY 
IMA 
CMP 
BEQ 
JSR 
INY 
BNE 
JSR 
JMP 



'Slot 6 

/ Recherche protection 



HOME 

t$6Q /Slot 6 

LECTEUR 

tS02 

DRIVE? 

D2SK01 , X 

PRH 

D1SKQ2,X 

MOTORON.X /Mise en rout* mar put 

tSFF /Delal 

tSFF 

PRB1 

PRDO 
#S60 

06H,X 
Q7L.X 
PROTIN 

MOTOROFF, X ,-Arret motcur 

MOT0R0FF,X /Arret oioCeur 
tSOO 
PRO?. Y 

tsoo 

RV.TPHUT 
COUT 

BCLPR 
iSOO 

ENLEVER, Y 

tsoo 

RETENL 
COUT 

BCLPR1 

srooc 

PROTEC 



LAB2 



HEX 


02 


/Pour accepter ce qui suit 


ST A 


MOTOROFF, 


X /Arret motcur I c clout 


IDA 


S2H 


/Chargement numGro slot Dooc 


LSR 






LSR 






LSR 






LSR 






ORA 


*SCO 




STA 


S3F 




WA 


t$QO 




STA 


S3E 




CLD 






JSR 


SFE84 


/Video NORMAL 


JSR 


SF82F 


/Mode TEXT 


JSR 


SEES 9 


/Clavier en entree 


JSR 


SFE93 


/Vld6o en cortLc 


,1SH 


HOME 




LDY 


tsoo 








Calcul d'adresse pour tentr 






compte de 1 'adresse S800 au 






BOOT de 2d dlsQuette. 


LDA 


TEXTE-T0S0*$80O, Y 


CMP 


tsoo 




BEQ 


LAB? 




JSR 


COUT 




INY 






BNE 


LABI 




JSR 


SFDOC 


/Attente touche clavtpr 


JMP 


(S003E) 





Message a atfiehfr au HOOT 



TEX TE 



ASC "* 

ASC m ! D1SOUETTE DE DONNEES SANS DOS !'8D 

ASC "! METTRE LA DISQUETTE PROGRAMME fBD 

ASC V ARPtlYER SDR < RETURN? t~8D 

ASC m * ' "8787878D 



HEX 00 



* 

FIN 



;Fln de message 

/Fin de chargement total 



- PARAMETRES POUR RNTS IIOB/ 

" Input Output control Block 



HEX 
HEX 
HEX 
HEX 
HEX 
DA 
DA 
HEX 

COMMANDE HEX 



I OB 

LECTEUR 
VOLUME 
PISTE 
SECTEUR 



ENLEVER ASC -ENLEVER PROTECTION PUIS <RETURN>"87BDO0 



0160 /Table IOB 

00 /Nume'ro lecteur 

00 /Num6ro volume 

00 /NumGro piste 

00 /Num4ro secteur 

CARUNIT /Adresse caract . unite dlsque 

TAMPON /Adresse laemolce tampon secleui 

0000 

00 /Code de comma nde 

/SOO posit ionne me nt 
/SOI lecture 
/S02 ecrlture 



Pom's n° 26 



K PR FAIR HEX 00 



hex oo 

HKX 60 
HEX 01 



;$04 format age 

;Code ecieur en retour 

/f OS orrcur format 

;StQ protege Acrtture 

,'$20 erreur volume 

jS40 erreur leCteilt 

;580 etceui lecture 

jVolumc precedent 

j Interface pr6c6denze 

J Lecteur precedent 



(ZAKAtlTKRISTl QUES UNITE DE 
DISQUETTE (OCT/ 



' Device Characteristics Table * 



CARUNIT HEX 0001EFD8 ,-Caracterlstiques unite disque 
t 



* DEBUT DO TAMPON DE ?bb OCTETS* 

' correspondent au contenu d'un' 

* seotevr lu ou a ce qui sora * 

* &ci It aui un MCttur * 



TAMPON DS 25 6 
END 



,-D6but du tampon (256 octets) 



t 


BOOTDATA' 


3158- 
31 60- 


B8 
F4 


BO 
E5 


AO 

F5 


AA 

F2 


AO 
AO 


CC 
B2 


E5 

BA 


E3 
B7 


32F.8- 
32F0- 


26 
60 


32 
20 


A5 
69 


IC 

32 


C9 
60 


FF 
A9 


DO 
01 


0: 

8D 




















3168- 


B8 


B3 


80 


80 


C9 


EE 


E9 


F4 


32F8- 


AF 


35 


DO 


OS 


A9 


02 


8D 


AF 


Apres 


avoir saisi cs code sous 




3170- 


E9 


El 


EC E9 


F3 


El 


F4 


E9 


3300- 


35 


20 


4D 


34 


A9 


6C 


3b 


19 


moniteur, vous le 


sauvegarderez par 


11 78- 


EF 


EE 


AO 


BJ 


R6 


AO 


FO 


E9 


3308- 


A9 


31 


85 


1A 


20 


C5 


33 


A9 


BSAVE BOOTDATA,A$3000,L$6C2 


3180- 


F3 


F4 


E5 


F3 


8D 


00 


CC 


E5 


3310- 


24 


8D 


FE 


BE 


20 


BC 


32 


A9 




















3188- 


E3 


F4 


E5 


F5 


F2 


AO 


Bl 


BA 


3318- 


23 


80 


FE 


RE 


A 5 


1 C 


CS 


FF 


3000- 


A9 


4C 


8D 


00 


03 


8D 


03 


03 


3130- 


Bl B8 B6 AO 


AA 


AO 


CC E5 


3320- 


OO 


01 


60 


A9 


FO 


85 


19 


AS 


3008- 


80 


06 


03 


8D 


09 


03 


8D 


OC 


3198- 


E3 


F4 


E5 


F5 


F2 


AO 


B2 


BA 


3328- 


31 


85 


1A 


20 


C5 


33 


AS 


05 


3010- 


03 


3D 


OF 


03 


8D 


12 


03 


8D 


31A0- 


B7 


B8 


B9 


8D 


8D 


AB 


AD 


AD 


3330- 


85 


1 9 


AS 


32 


85 


1A 


20 


Cb 


301 8- 


15 


03 


A9 


17 


80 


01 


03 


A9 


31A8- 


AD 


AD 


AD AD 


AD 


AD 


AD 


AD 


3338- 


33 


A9 


11 


8D 


Bl 


35 


A9 


00 


3020- 


32 


8D 


02 


03 


A9 


IE 


8D 


04 


31B0- 


AD 


AO 


14 


01 


10 


05 


12 


20 


3340- 


8D 


B2 


35 


AO 


01 


8D 


B9 


35 


3028- 


03 


A9 


32 


80 


05 


03 


A9 


5A 


31B8- 


03 


01 


OC 


OC 


20 


18 


16 


18 


3348- 


20 


61 


33 


A9 


FF 


BD 


B6 


36 


3030- 


8D 


07 


03 


A 9 


32 


80 


08 


03 


HCO- 


AO 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


3350- 


8D 


87 


36 


A9 


24 


3D 


F6 


35 


1018- 


AS 


61 


an 


OA 


03 


AS 


32 


8D 


11C8- 


AD 


AD 


AD 


AD 


AR 


8D 


80 


8D 


3358- 


A9 


02 


BD 


B9 


35 


20 


61 


33 


3040- 


as 


03 


A9 


A2 


80 


OD 


03 


AS 


31D0- 


8D 


FF 


C3 


EF 


EE 


F3 


F4 


F2 


3360- 


60 


A9 


00 


80 


BA 


35 


A9 


FF 


3048- 


32 


8D 


OE 


03 


A9 


A9 


3D 


10 


31DB- 


F5 


E3 


F4 


E9 


EF 


EE 


AO 


C3 


3368- 


85 


1C 


A9 


35 


AO 


AD 


20 


D9 


3050- 


03 


A9 


32 


8D 


11 


03 


A9 


FS 


31E0- 


CI 


D4 


CI 


CC 


CF 


C? AO 


ES 


3370- 


03 


A9 


00 


65 


46 


AO 


00 


AD 


3058- 


3D 


13 


03 


A9 


32 


8D 


14 


03 


31E8- 


F4 


AO 


D6 


D4 


CF 


C3 


an 


00 


3378- 


BA 


35 


C9 


08 


DO 


OA 


A9 


D3 


3060- 


A9 


FC 


8D 


16 


03 


A9 


32 


8D 


31F0- 


CC 


E9 


K? 


FB 


F2 


El 


F4 


E9 


3380- 


85 


19 


AS 


33 


85 


1A 


DO 


3D 


3068- 


27 


03 


20 


84 


i'E 


20 


2F 


FB 


31F8- 


EF 


EE 


AO 


FO 


E9 


F3 


F4 


ES 


3308- 


C9 


10 


DO 


OA 


A9 


ED 


35 


1 9 


30/0- 


20 


89 


FE 


20 


93 


FF. 


20 


56 


3200- 


AO 


B3 


B6 


8D 


00 


CD 


E9 


F3 


3390- 


AO 


33 


85 


1A 


DO 


2F 


C9 


20 


3078- 


FC 


A9 


SB 


85 


7 9 


A9 


30 


85 


3208- 


E5 


AO 


CO 


AO 


EA 


EF 


F5 


F2 


3398- 


DO 


OA 


A9 


02 


85 


1 9 


A9 


34 


3080- 


1A 


AO 


00 


Bl 


19 


FO 


07 


CS 


3210- 


AO 


D6 


D4 


CF 


C3 


8D 


00 


A9 


33A0- 


8b 


1A 


DO 


21 


C9 


4 


UU 


UA 


3088- 


FF 


FO 


OB 


20 


ED 


FD 


E6 


19 


3218- 


01 


8D 


AF 


35 


DO 


05 


A9 


02 


33A8- 


A9 


le 


85 


1 9 


A 9 


• j 

i 4 


Bb 


* * 


3090- 


DO 


02 


E6 


1A 


DO 


ED 


A9 


10 


3220- 


8D 


AF 


35 


20 


4D 


34 


A9 


00 


3-?B0- 


DO 




i— q 

cy 




UU 


UA 


a a 
n 3 


jy 


3008- 


85 


22 


60 


AO 


AO 


AO 


AO 


AO 


3228- 


8b 


1C A9 


B8 


85 


19 


A9 


30 




85 


1 9 


AS 


34 


85 


1A 


DO 


05 


30AO- 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


3230- 


85 


1A 


20 


CS 


33 


AO 


00 


B9 


33C0- 


A9 


00 


85 


IC 


60 


AO 


00 


Bl 


30A8- 


OC 


09 


13 


14 


Ob 


20 


94 


05 


3238- 


CV 


34 


99 


C2 


35 


C8 


C9 


FF 


33C8- 


IS 


FO 


07 


C8 


20 


ED 


FD 


4C 


30B0- 


13 


20 


03 


01 


OC 


OC 


8D 


811 


3240- 


DO 


F5 


A9 


00 


80 


RO 


35 


A9 


33D0- 


C7 


33 


60 


05 


12 


12 


05 


15 


10R8- 


C5 


E3 


F2 


F.9 


F4 


F5 


F2 


E5 


3248- 


OO 


8D 


Bl 


35 


AS 


00 


8D 


32 


33D8- 


12 


20 


04 


27 


09 


OE 


OS 


14 


30C0- 


AO 


F.n 


F.5 


F3 


F3 


El 


E7 


E5 


1250- 


35 


AS 


02 


80 


B9 


35 


20 


61 


33E0- 


09 


01 


OC 


09 


13 


01 


14 


09 


30C8- 


AO 


FO 


E9 


F3 


F4 


E5 


AO 


BO 


3258- 


33 


60 


AS 


01 


8D 


AF 


3S 


DO 


33E8- 


OF 


OE 


87 


BD 


00 


04 


09 


13 


30D0- 


AO 


F3 


E5 


E3 


F4 


E5 


F5 


F2 


3260- 


05 A9 


02 


8D 


AF 35 


20 


4D 


33F0- 


11 


15 


05 


14 


14 


05 


20 


10 


30D8- 


AO 


BO 


8D 


00 


CC 


E5 


E3 


F4 


3268- 


34 


AO 


00 


80 


BO 


35 


A9 


11 


33F8- 


12 


OF 


14 


OS 


07 


OS 


05 


87 


30E0- 


E5 


F5 


F2 


AO 


Bl 


BA 


B7 


B6 


327Q- 


80 


Bl 


35 


A9 


00 


8D 


B2 


35 


3400- 


8D 


00 


05 


12 


12 


05 


15 


IP 


30E8- 


B8 


AO 


AA 


AO 


CC 


E5 


E3 


F4 


3273- 


A9 


01 


3D 


B9 


35 


A9 


FB 


Bb 


1408- 


20 


OF. 


15 


OD 


05 


12 


OF 


20 


30F0- 


E5 


Fb 


F2 


AO 


B2 


BA 


B7 


B7 


3280- 


19 


A9 


30 


85 


1A 


20 


C5 


33 


3410- 


04 


05 


20 


16 


OF 


OC 


15 


OD 


30F8- 


Bl 


8D 


80 


CC 


E9 


E2 


FB 


F2 


3288- 


20 


61 


33 


A9 


FF 


BD 


FE 


35 


3418- 


05 


87 


8D 


00 


05 


12 


12 


05 


3100- 


El 


F4 


E9 


EF 


EE 


AO 


FO 


E9 


3290- 


8U 


FF 


35 


8D 


02 


36 


8D 


03 


3420- 


15 


12 


20 


OC 


05 


03 


14 


05 


3108- 


F3 


F4 


es 


AO 


R1 


AO 


E5 


FA 


3298- 


36 


A9 


02 


8D 


B9 


35 


20 


61 


3428- 


15 


12 


20 


26 


09 


2F 


OF 


20 


3110- 


AO 


B2 


8D 


00 


CC 


E5 


E3 


F4 


32A0- 


33 


60 


A9 


01 


8D 


AF 


35 


DO 


3430- 


OS 


12 


12 


OF 


12 


29 


87 


8D 


3118- 


E5 


F5 


F2 


AO 


Bl 


BA 


B7 


B7 


32A8- 


OS 


A9 


02 


8D 


AF 


35 


20 


40 


3438- 


00 


05 


12 


12 


05 


15 


12 


20 


3120- 


B4 


AO 


AA 


AO 


CC 


E5 


E3 


F4 


32B0- 


34 


A9 


33 


85 


IS A9 


31 


95 


3440- 


04 


05 


20 


OC 


Ob 


03 


14 


lb 


3128- 


E5 


F5 


F2 


AO 


B2 


BA 


B7 


B7 


32B8- 


1A 


20 


CS 


33 


A9 


04 


8D 


B9 


3448- 


12 


05 


81 


BD 


00 


20 


58 


FC 


3130- 


D7 


8D 


8D 


C9 


EE 


E9 


F4 


E9 


32C0- 


35 


A9 


00 


8D 


BO 


35 


20 


61 


3450- 


A2 


60 


AO 


AF 


35 


C9 


02 


FO 


3138- 


El 


EC 


E9 


F3 


El 


F4 


E9 


EF 


32C8- 


33 A9 


60 


3D 


FF AE 


AD 


AF 


1458- 


06 


RO 


8A 


CO 


4C 


62 


34 


RD 


3140- 


EE 


AO 


B3 


Bb 


AO 


FO 


E9 


FJ 


32D0- 


35 


8D 


FB 


B5 


A9 


D2 


85 


L9 


1460- 


8R 


CO 


RD 


89 


CO 


AO 


FF 


A? 


3148- 


F4 


Eb 


F3 


8D 


00 


CC 


E5 


E3 


32D8- 


A9 


31 


85 


1A 


20 


C5 


33 


20 


3468- 


FF 


CA 


DO 


FD 


88 


DO 


F8 


A2 


3150- 


F4 


F.5 


FS 


F2 


AO 


Bl 


BA 


B7 


1PE0- 


9E 


AE 


A9 


20 


8D 


FF 


AE 


20 


3470- 


60 


BD 


8D 


CO 


BD 


8E 


CO 


30 
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3478- 


04 


BD 


88 


CO 


60 


BD 


88 


CO 


3540- 


Al 


8D 


Al 


AO 


CD 


C5 


D4 


D4 


3608- 


00 


00 


00 


00 


00 


00 


00 


00 


3480- 


AO 


00 


B9 


ED 


33 


C9 


00 


FO 


3548- 


D2 


C5 


AO 


cc 


Cl 


AO 


C4 


C9 


361 0— 


OQ 


00 


00 


00 


00 


00 


00 


00 


3488- 


06 


20 


ED 


ED 


C8 


DO 


F3 


AO 


3550- 


D3 


Dl 


D5 


C5 


D4 


D4 


C5 


a a 

AO 


3618- 


00 


00 


00 


00 


00 


00 


00 


j 


1490- 


OQ 


B9 


A4 


34 


C9 


00 


FO 


06 


3558- 


DO 


D2 


CF 


C7 


D2 


Cl 


CD 


CD 


3620- 


00 


a a 

00 


00 


00 


00 


00 


00 


00 


3498- 


70 


F.n 


FD 


ca 


DO 


F3 


20 


OC 


3560- 


C5 


AO 


Al 


8D 


Al 


AO 


AO 


AO 


3628- 


00 


00 


00 


00 


00 


00 


00 


00 


34A0- 


FD 


4C 


40 


34 


C5 


CE 


cc 


C5 


3568- 


AO 


AO 


Cl 


DO 


DO 


D5 


D9 


C5 


3630- 


00 


00 


00 


00 


00 


00 


00 


00 


34A8- 


D6 


CD 


DZ 


AO 


DO 


D2 


CF 


D4 


3510 


D2 


AO 


D3 


05 


D2 


AO 


BC 


D2 


3638- 


00 


00 


00 


00 


00 


00 


00 


00 


34B0- 


C5 


C3 


D4 


C9 


CF 


CE 


AO 


00 


3578- 


C5 


D4 


D5 


D2 


CE 


BE 


AO 


AO 


3640- 


00 


00 


00 


00 


00 


00 


00 


00 


34B8- 


D5 


C9 


03 


AO 


BC 


02 


cs 


04 


3580- 


AO 


AO 


AO 


AO 


Al 


&D 


AB 


AD 


3648- 


00 


00 


00 


00 


00 


Q0 


00 


00 


34CQ- 


DS 


D2 


CE 


BE 


87 


8D 


00 


01 


3588- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AO 


3650- 


00 


Q 


A A 

OU 


Aft 


fl fl 
UU 


ft A 


Aft 

UU 


U J 


34C8- 


9D 


88 


CO 


A5 


2B 


4A 


4A 


4A 




AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


3658- 


00 


00 


00 


00 


f\ A 

00 


ft -1 
UU 


AA 

UU 


UU 


34D0- 


4A 


09 


CO 


85 


3F 


A9 


00 


85 


3598- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


3660- 


00 


00 


00 


lift 
UU 


A A 

UU 


ft A 

UU 


St/1 
UU 


tin 


J4D8- 


3E 


D8 


20 


84 


FE 


20 


2F 


FB 


35A0- 


AD 


AD 


AD 


AD 


AD 


AD 


AB 


a 1 


3668- 


00 





a ft 
UU 


UU 


A A 

UU 


ft A 

UU 


UU 


AA 

Uv 


34E0- 


20 


89 


FE 


20 


93 


FE 


20 


5fl 


35A8- 


87 


87 


80 


00 


FF 


01 


e a 


aa 
UU 


3 670- 


r\ a 
UU 


a a 
UU 


a n 
UU 


firs 
UU 


UU 


n ft 


fl fl 

UU 


fin 
JU 


34E8- 


FC 


AO 


00 


89 


37 


oa 


C9 


00 


35BQ- 


00 


00 


OC 


BE 


35 


C2 


35 


00 


3678- 


00 


00 


00 


00 


00 





00 


00 


14F0- 


FO 


06 


20 


ED 


FD 


ca 


DO 


F3 


35B8- 


00 


00 


00 


00 


60 


01 


00 


01 


3680- 


00 


OU 


00 


00 


00 


00 


AA 







34F8- 


20 


oc 


FD 


6C 


3E 


00 


AB 


AD 


35C0- 


EF 


08 


00 


00 


00 


00 


00 


00 


3688- 


00 


00 


00 


00 


no 


OQ 


00 


no 


3500- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


35C8- 


00 


OQ 


Q D 


00 


00 


00 


00 


00 


3690- 


00 


00 


00 


00 


00 


00 


00 


00 


3508- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


35D0- 


00 


00 


00 


00 


00 


00 


a a 


aa 
UU 


3698- 


00 


A A 


ft fl 
UU 


Afl 

UU 


A A 

UU 


ft A 

UU 


AA 

uu 


j j 


3510- 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


AD 


35D8- 


00 


00 


00 


00 


a a 
UU 


uu 


UU 


a a 
UU 


36A0- 


fiA 
(JU 


a n 
UU 


A A 
UU 


fin 


Afl 

UU 


nfi 
UU 


AA 
UU 


00 

u u 


3518- 


AD 


AD 


AD 


AD 


AD 


AD 


AB 


an 


35E0- 


00 


00 


00 


00 


00 


00 


00 


00 


3CA8- 


00 


00 


00 


00 


A A 

UU 


ft A 

UU 


A fl 

UU 


UU 


3520- 


Al 


AO 


C4 


C9 


D3 


02 


05 


C5 


35E8- 


00 


00 


00 


00 


00 


00 


00 


00 


36B0- 


00 


00 


00 


00 


00 


OQ 


00 


00 


3528- 


D4 


D4 


C5 


AO 


C4 


C5 


AO 


C4 


35F0- 


00 


00 


00 


00 


00 


00 


00 


00 


36B8- 


00 


00 


00 


00 


00 


00 


00 


00 


3530- 


CF 


CE 


CE 


C5 


C5 


D3 


AO 


03 


35F3- 


00 


00 


00 


00 


00 


00 


OQ 


OQ 


36~CQ- 


00 


00 














3538- 


Cl 


CE 


D3 


AO 


C4 


CF 


D3 


AO 


3600- 


00 


00 


00 


00 


00 


00 


00 


00 





















Une nouvelle disquette de jeux : 

Ludologic 



Au sommaire de la disquette LUDOLOGIC, 
trois jeux de reflexion de difficult* croissante. 

Ces jeux qui necessifent des neurones aussi 
calmes qu*entrain£s, ne devraient pas d^cevoir 

les amateurs de puzzles et autres casse-tetes. 

II n'est pas nicessaire de presenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 
pr£sent£. 

Nouvelle difficult*, NOIR & BLANC : 37 
hexagones peuvent etrc noirs ou blancs mais 
au depart vous n'en connaissez pas la couleur. 
Chacun comporte un numero qui reprlsente le 
nombre de cellules voisines blanches... A 
vous de reconstituer le decor original ! 
HEXAGONE MAGIQUE est encore plus 
delicat. memo principe que le carre magique, 
mais ici vous devrez installer les chiffres de 1 
k 19 dans un hexagone de telle fagon que les 5 
horizontals et 10 obliques totalisent chacune 
38 : bonne chance. 



Fidele a son habitude, Pom's vous propose sur cette disquette les 
sources des routines 6c rites par Sylvic Gallet en assembleur Lisa 
2.5. Bien entendu, le Basic est egalement listable. TAQUIN et 
NOIR & BLANC utilisent leur propre rouune graphique qui 
permet de dessiner plus rapidement qu'avec des shapes. 



□□EH 
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80,00 F Franco, 
Bon de commande page 74 
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Commandes ProDOS : 

Renommez-les ! 

Bruno Fenart 



Qui n'a jamais eu dc 
problemes en tapant 
LAOD au lieu de 
LOAD, ou CQTQLOG 
au lieu de CATALOG. N'avez 
vous jamais eu envie de 
raccourcir les commandes de 
ProDOS ou de les traduire, 
comme cela a deja &16 propos6 
pour le DOS 3.3. Et si, pour le 
meme prix, vous vous offriez 
deux commandes supplemen- 
taires qui ne tarderont pas a vous 
paraitre indlspensables ? 

Des commandes 
personnalisees 

Les versions de BASIC. 
SYSTEM sont innombrables et U 
serait imprudent de les 'patcher* 
direetement comme en DOS 3.3. 
C'est pourquoi, plutot que 
remplacer les commandes nor- 
males, on ajoute des commandes 
qui auront le meme role. Cela 
aura pour avantage d'ajouter des 
commandes... sans en sup- 
primer. 

Apres avoir lance* l'execution de 
NEWCOM, vous pourrez taper 
"CATALOG" aussi Men que 
"CO" pour obtenir le catalogue 
d'une disquette. 



Les nouvelles 
commandes 



BL 




BLOAD 


BR 




BR UN 


BS 




BSAVE 


CG 




CATALOG 


CT 




CAT 


CH 




CHAIN 


CL 




CLOSE 


CR 




CREATE 


DL 




DELETE 


EX 




EXEC 


I 




IN£ 


LD 




LOAD 


LK 




LOCK 


PX 




PREFIX 


P 




PR£ 


RN 




RENAME 


SA 




SAVE 


UN 




UNLOCK 


VE 




VERIFY 



La syntaxe des commandes 
raccourcics est la mcmc que celles 
des commandes normales. 
Comme l'int^ret de renommer les 
commandes utilisables seulement 
dans un programme est faible, 
seules les commandes accessibles 
cn mode direct ont 6t€ naduites. 
Ccpcndant, vous pouvez changer 
cela si vous le de\sirez, grace au 
programme CHANGE. 

Note : NEWCOM est compatible 
avec EPE 5.0, mats EPE devra 
etre land avant car il n'est pas 
relogeahle. 

Choisir le nom de ses 
commandes 

Vous pouvez choisir vous-memes 
les nouveaux noms des 
commandes ProDOS en utilisant 
le programme CHANGE. Ces 
noms ne doivent pas etre 
constitutes de plus de huit 
caracteres. De plus, le premier 
caractere d'une commande doit 
obligatoirement etre une lettre. 
Les caracteres suivants peuvent 
etre n'importe quoi (les 
minuscules sont automatiquement 
converties en majuscules) sauf un 
espace ou un caractere de 
contraie. II faut faire attention k 
ce choix : en effct, si vous prenez 
un nom qui ressemble k une 
commande ProDOS (respec- 
tivement commande Basic), votre 
propre commande sera interceptee 
(respectivement interceptera) par 
la commande en question. Ainsi, 
si vous choisissez de renommer 
"CATALOG" par "CATA", votre 
commande sera interceptee et 



reconnue comme "CAT" du sous 
volume A. RSciproquement, si 
vous choisissez "L" pour 
renommer "LOAD", votre 
commande interceptera la 
commande du Basic LIST et 
traduira par exemple "LIST,999 11 
par "LOAD IST,999" (en mode 
direct uniquement et il suffirait de 
mettre ":" devant "LIST" pour 
6viter ce probleme). 

Pour ceux qui n'auraient pas 
suivi, pas de panique ! En 
utilisant direetement NEWCOM 
sans changer les noms pr6d6finis 
vous n'aurez pas les problemes 
rite's ci-dessus. 

Deux commandes 
indispensables : 

BYE et ONLINE 

BYE pennet d'enchainer vers un 
autre interpr&eur ou de relancer 
MOUSE.DESK si vous l'avez 
utilise^ pour d&narrer. Cette 
commande est d'ailleurs d6ja 
dispnnible sur certaines versions 
de BASIC.SYSTEM (version 
1.1) . Mais NEWCOM vous 
permet d'en disposer quelle que 
soit la version que vous utilisez. 
Quant a la commande ONLINE, 
ellc existe sur la purpart des 
logiciels toumaht sous ProDOS, 
mais malheureusement pas avec 
BASIC.SYSTEM, faute de place 
sans doute. La encore NEWCOM 
pallic ce ddfaut et cette commande 
devient vite indispensable, 
surtout avec l'arriv6e des 
unidisks 3'5. 
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Comment faire ? 



En premier lieu, saisir et sauvegarder le programme binaire 
NRWCOM. C'est ce programme qui qjoute ks nouvdles 
commandes. Saisir puis sauvegarder CHANGE. 

i c— 



Vans voulez simplement uiiliser les nouvelles comniandcs 
telles qu'elles sonr notees dans Vencadrejaitcs : 



-NEWCOM 



Vous preferez modifier le nom des nouvelles commandes 
avant de les installer, faites : 



-CHANGE 



Vous apportez alors les modifications que vous souhaiiez. 
Apres validation, VOTRE nouvelle version de NEWCOM est 
sauvegardee sur la disquette. II vous est alors propose de 
lancer NEWCOM pour installer vos nouvelles commandes. 



Remarque : la commande 
ProDOS qui pennet de quitter une 
application est un peu sommaire 
(sauf si vous utilisez 
Mouse. Desk). Pour l'utiliser sans 
probleme, il est conscilld pour 
chacunc dc vos applications sous 
ProDOS de noter le preilxe de la 
disquette et le nbm du programme 
(qui doit Stre de type System). 
Par exemple, pour AppleWriter, 
le pr6fixe est /AW et 1'application 
est /AW. SYSTEM, ce qui est 
simple a retenir. Pour Episiole, le 
pnJfixe est /LB (?!) et 
Implication /MY.S YSTEM (?!). 

Utilisation de ProDOS 
en assembleur 

L'utilisation de ProDOS en 
assembleur est assez ddlicate. En 
DOS 3.3 il suffisait d'envoyer 
par COUT la commande pr£c£d£ 
de CTRL-D (exactement comme 
on 1'aurait fait depuis le Basic). 

Avec ProDOS il existe deux 
solutions ; 

• La premiere en appelant 
directement le MLI. Cette 
technique a 6t€ expliqu^e par 
Alexandre Avrane dans les 
colonnes du num6ro 20 de 
Pom's. Elle est delicate et 
n^eessite plusieurs operations 
(GET-PREFIX ou ON-LINE, 
GET-FILE-INFO, OPEN. 
READ, CLOSE). Elle n'est 
indispensable que si vous 
souhaitez ne pas utiliser 
BASIC.SYSTEM {pour £crire 
voire propre fichier systfcme, par 
exemple) ou pour des 
commandes non fournies par 
BASIC.SYSTEM (comme, par 
exemple. ONLINE et BYE). 

• La seconde solution ressemble 
beaucoup a celle utilistJe en DOS 
3.3 . II faut recopier en $200 la 
commande de BASIC.SYSTEM 
que Ton veut exdeuter, suivic par 
un retour chariot (mais sans 



CTRL-D), puis appeler 
DOSCMD = $BE03. Puis on doit 
tester s'il y a eu une erreur et 
l'afficher a I'aide du sous 
programme PRINTERR= $BE0C 
(le code de Teneur se trouve dans 
le registre A et non en ERRCODE 
= SBEOF comme 1'indiquc le 
manuel de reference). 

Exemple simple 



LDX 


§00 




LDA 


CHD,X 


; Recopi e 






la cde 


STA 


$200, X 




I NX 






CMP 


9$8D 


/Dernier 






caractere? 


HNF. 


ROT. 




JSR 


SBE03 


/Execute 






1 a cde 


BCC 


tJOERR 


,-Erreur si 






Carry set 


JSR 


S9E0C 


;Sx qui af 






fiche err. 






dont le n' 






est dans A 



NQERR PTS 

CMD ASC "CATALOG" /Commande 
DFR SRf) 



C'est cette solution que nous 
utiliserons pour simuler les 
commandes de BASIC.SYSTEM 
en traduisant le nom des 
commandes et en d^calant de 8 
caracteres (la commande la plus 
longue est POSITION) la liste 
des paramdtres. Seuls la gestion 
et l'affichage de I'erreur sont un 
peu differents, car pris en charge 
directement quand on revient de 
la commande exterieure vers le 
Basic. Notez que la table des 
commandes est concatende de la 
meme fagon que celle de 
BASIC.SYSTEM. 

Enfin, pour terminer, signalons 
que le relogeur est le meme que 
celui utilise pour DATHEUR 
(Pom's n°24) en plus performant. 
II tient compte de la structure 
sp^ciale des appels au MLI et 
permet de reloger les adresses des 
parametres ainsi que cellcs des 
buffers ou des noms d'acc£s, 
suivant la commande ProDOS. 

G 



Recapitulation 
'NEWCOM' 

Apres avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSA VE NEWCOM, A$2000,L$39 1 



200U- AD OB BE BD 40 21 AD 07 
2008- BE BD 3F 21 A9 03 20 F5 
2010- BE C9 0C DO 03 4C 09 BE 
2018- 8D FF 20 85 43 8D 09 BE 
2020- A9 21 85 3D A9 FF 95 3E 
2028- A9 23 85 3F AO 00 84 42 



2030- B4 3C 8C 07 BE 20 2C FE 

2038- 20 3C 20 60 AD FF 20 85 

2040- 3B A9 00 85 3A A2 00 Al 

2048- 3A F0 7F 20 8C FB A4 2F 

2050- CO 02 DO SB Bl 3A CO BF 

2058- DO 12 88 Bl 3A C9 00 DO 
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Programme 'CHANGE' 



10 D$ - CHR$ (4): PRINT D$"BLOAD NEWCOM" 

20 DIM PR$ (30) , NWS (30) 

30 DATA "APPEND", "RLOAD " , "BRUN", "BSAVE" , " 
CATALOG", "CAT", "CHAIN", "CLOSE", "CREA 
TE", "DELETE", "EXEC", "FLUSH", "FRE", "I 
N#", "LOAD", "LOCK" 

40 DATA "NOMON", "OPEN", "POSITON", "PREFIX" 
, "PRf", "READ", "RENAME", "RESTORE", n RU 
N", "SAVE", "STORE", "UNLOCK", "VERIFY", 
"WRITE", "-" 

50 FOR I = TO 30: READ K$:PR$(I) = K$ : 
NEXT I 

60 PRINT CHR$ (21): HOME 
100 REM Lecture 

110 FOR I = 8960 TO 9216: IF PEEK (I) = 
194 AND PEEK (I + 1) - 217 AND PEE 
K (I + 2) =157 AND PEEK (T + 3) — 
141 THEN TB = I + 4:1 = 9216 
12Q NEXT I:LT = 9216 - TB - 2 
130 J - TB: FOR I - TO 30:K$ - "" 
140 J - J + 1:K - PEEK (J):IFK< > T 

IJEN K$ = K$ + CHR$ (K) : GOTO 140 
150 NW$(I) - K$:LT — LT - LEN (K$) - 1: N 

EXT I 
200 REM Affichage 

210 VTAB 2: PRINT " Renommez les comma 

ndes de ProDOS": PRINT " 

"/; PRIN 

T " "/ ; IITAB 21 : PRINT n 



220 VTAB 21: PRINT " 

*'; PRINT "Place d 

Isponible: 000": PRINT "Escape pour 
quitter. ",- 

230 FOR II - TO 30: GOSUB 1000: INVERSE 
: PRINT PR$(II); TAB ( H * 8);: NORM 
AL : PRINT " = ";NW$(II): NEXT II 
240 IX * 

250 VTAB 23: HTAB 19: PRINT SPC ( (LT < 1 
00) + (LT < 10));LT: GOSUB 1000 

260 N$ - NW$(II):LT - LT t LEN (N$) :LM - 
8 * (LT > 7) + LT * (LT < 8) ; GOSUB 
3000:NW$(II) m N$:LT - LT - LEN (N$ 
) 

270 IF K = 13 OR K = 10 THEN II = II + 1 

- 31 * (II - 30) 
28Q IF K - 11 THEN II = II - 1 + 31 * (II 
= 0) 

290 IF K < > 27 GOTO 250 
300 REM Quitter 

310 J = TB: FOR II = TO 30:N$ m NW$(II) : 



L - LEN (N$) : IF L = GOTO 330 

320 FOR I - 1 TO L:J - J + 1: POKE J, ASC 

( MID$ (N$,I,D): NEXT I 
330 J = J t 1; POKE J, 
340 NEXT II 

400 M$ = "Enxegistrer les nouvelles comman 
des": GOSUB 2000: IF K$ = "N" GOTO 5 
00 

450 PRINT CHR$ (4) "BSAVE NEWCOM" 
500 M$ = "Lancer 1' execution de NEWCOM": G 
05UB 2000: IF K$ - "N" GOTO 600 

550 CALL 8192: HOME : PRINT "ONLINE": PRI 

NT CHR$ (4) "ONLINE" 
600 END 

1000 C = INT (II / 16) :V * II + 5 - C * 1 
6:H - i + C * 20: VTAB V: HTAB H: RE 
TURN 

2000 VTAB 23: HTAB 1: CALL - 958: PRINT 

M$;" ? (0/N) "/ 
2010 GET K$:K$ = CHR$ ( ASC (K$) - 32 * 
(K$ > "Z")): IF K$ < > "O" AND K$ < 
> "N" GOTO 2010 
2020 RETURN 

3000 REM Introduction d'un nom 

3010 L = LEN (N$) : IF L > LM THEN L - LM: 

N$ = LEFTS (N$, LM) 
3020 HTAB H + 11:1 m L: PRINT N$; 
3030 HTAB H * 11 * X: GET K$:K = ASC (K$ 

) 

3040 If K - 27 GOTO 3150 

3050 IF K = 10 OR K = 11 OR K - 13 GOTO 3 
140 

3060 IF K - 8 AND I > THEN I = I - 1: G 
OTO 3030 

3070 IF K = 21 AND I < L THEN 1 = 1 + 1: 
GOTO 3030 

3080 IF 1 m LM THEN PRINT CHR$ (7)?: GO 
TO 3030 

3090 IF 96 < K AND K < 123 THEN K - K - 3 

2:K$ = CHR$ (K) 
3100 IF K = 127 OR K < = 32 OR I = AND 
(K < 65 OR 90 < K) THEN PRINT CHR 
$ (7)12 GOTO 3030 
3110 PRINT K$;:I = I + 1:IFI>L THEN L 
= I- 

3120 N$ = MID$ (N$,1,I - 1) + K$ + MTO$ 

(N$,I.+ 1,L - I) 
3130 GOTO 3030 

3140 PRINT SPC( 8 - I) ; :N$ = MID$ (N$,l 
,1) 

3150 RETURN 



2060- OB 68 Bl 3A C9 20 DO 04 

2069- AO 05 84 2F A5 3A 85 FA 

2070- A5 3B 85 FB A4 2F 20 D9 
207 Q- 20 CO 05 DO 32 Bl 3A 85 
2080- FB 88 Bl 3A 85 FA 88 Dl 
2008- 3A C9 40 FO 17 C9 00 FO 



2090- 13 C9 81 FO OF 38 E9 CO 
2098- 90 15 C9 OC BO 11 AA BC 
20A0- F3 20 FO OB 20 D9 20 CO 
20A8- 04 DO 04 AO 02 DO F5 A5 
20B0- 2F 38 65 3 A 85 3 A A5 3B 
20B8 69 00 85 3D 38 ED FF 20 



20CQ- A6 3A 20 CB 20 BO 03 4C 

2QC8- 45 20 60 C9 03 90 06 DO 
2OD0' 06 EO 00 BO 02 18 60 38 
20D8- 60 88 Bl FA AA C8 Bl FA 
20E0- 38 E9 21 90 OC 20 CB 20 
20E8- BO 07 6D FF 20 91 FA 18 
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Source 'T.NEWCOM' 

Assembleur ProCODE 

Assemblage par ProCODE 



DEVCNT EQU 


5BF31 


;Nombre de legteura 


ONLINE = 


5CS 


.■Code de ONLINE 


QUIT 


565 


,-Cude de QUIT 


ALLOC 


SAO 


.•Code de ALLOC INTERRUPT 


READ BLOC - 


580 


;Code de READ BLOC 


WRITE BLOC = 


581 


.•Code de WRITE BLOC 



ORG START 



NEttCOM (C) Bruno Fena-t 1986 



'24/5/86 



INITIALISATION 



• fermet de renommor les commandea 

* de BASIC. SYSTEM 
n 

• Ajoute? en plus deux commandea : 

" BYE - permet de quitter BASIC. SYSTEM 

* ONLINE - permet de connaltre cous les volumes en lignes 
■ Syntaxe : Aucun parametre pour ceo deux commandos 



* Installe la commande personnalisee 

• antra BASIC. SYSTEM (BI) et ses butlers 

LDA EXTRNCMD+2 .-Preserve la commande precedent* 
STA PRECMD+2 











LDA 


EXTRNCMD* 1 




START EQU 


$2000 






STA 


PRECMDU 




DEBUT EOU 


STAR T+S 100 












FIN EQU 


DEBUT+S300 






LDA 


f >FIN-DEBUT*3FF ,-Reaexvu uuLanL do pages qu'er 










JSR 


GETBUFR 


; occupe le programme a reloger 


• Variables 


cn page 






CMP 


I90C 


;SI pas d'erieui (A)- adi . buffer 










BNE 


1 got hem 


;sinon (A) * code d'erreur BI 


LENGTH EQU 


$2F 


f Longueur de 1' instruction 




JMP 


ERROUT 


,-AIflclie NO BUFFERS AVAILABLE et Zl 


PCI, EQU 


SSA 


rAdresse de la ligne desassemDlee 










Al EQU 


S3C 


,-Adresse de depart pour MOVE 


I got hem STA 


ADRESSE 


.•preserve l'adresse du celoqement 


A? BQU 


S3F. 


;Arir*9H* Hn fin " " 




STA 


A4*l 


;Adresse destination pour MOVE 


A 4 EQU 


542 


;Adressc d'orrivee ' " 




STA 


EXTRNCMD -t-2 


jinatallese en cnjiiunande cAlciicuie 


ADR EQU 


SFA 


;Vecteur d'indirection temporaire 




LDA 


f> DEBUT 


;Adresses du programme deplace 










STA 


Al+1 




* variables 


diverges 






LDA 


^fin-i 




* r -- -i ■ i - 1 








STA 


A2 




BUFF IN EOU 


3200 


: Buffer utilise temporal remenc 




LO* 


#>FIN-i 












STA 


A2+1 




* Sous programmes du monlteur 










* 








LDY 


#0 


rPoids faibloo nulo 


INSDSP2 EQU 


SF66C 


.•Decode la ligne (PCD avec X=0 




STY 


A4 




COUT EQU 


SFDED 


; Sortie d'un caracteie 




STY 


Al 




MOVE EQU 


SFE2C 


MAD-CA7) vers (A4) avec Y=0 




STY 


EXTRNCMD-t-1 




• Hage globale HASlC.SYSTfcM (BIJ 




JSH 


MOVE 


;Tr*nsferr rtn programme (Y = 0) 








JSR 


RELOGE 


,'Reloge le programme sous le DI 










RTS 






D05CMD EQU 


5BE03 


.•Execution d*une commando du BI 










EXTRNCMD EQU 


SBF,06 


;JMP v»ra i neerpreteur exterlemr 










ERROUT EQU 


SBE09 


;Af£iche l'erreux et fin 


• 


RELOCEur 






HA DC A LI, KQU 


SHEHH 


.■Conversion e:ode errenr MM en HI 


• 








X RETURN EQU 


SBE9E 


;RT3 co-nnu en page alobale du BI 


* 


Reassemble 


le programme 3itu6 a l'adrcssc - (ADRESSE) 


CETSUFR EQU 


SBEFb 


.'Reserve (A) page (s) sous le BI 


* 


en Co net ion 


de son adresse d' assemblage ■ DEBUT 








* 


Les deux ddxeaaes doivent ecrc des multiples de 256 


XTRNADDR EQU 


$BES0 


,-AdrosBo d'un* commande extorrte 


* 


Longueur du 


programme (donnees comprises) = FIN-LONGUEUR 


XCNUK EQU 


JBE53 


;N" de la commande (0 si externe) 


* 


La zone des 


donneea est 


ae parte par DFB 500 (- BRK) 


PBITS EQU 


S6E54 


.•Paramotres optionnols autorises 


* 


Le programme prend en compte la structure d'appel au ML-I 


'FBITS EOU SBE56 


jPaiOJiicLics Liuuvca 


* 


et reloge. 


si necesaaire, les adresses des parametres 


VPATH1 EQU 


SBE6C 


;Vecteur vera la command-e entreo 
















RELOGE LDA 


ADRESSE 


;Adxosse du relugemenl 


* Page global 


e ProDOS £ codes de fonction 




STA 


PCL.+1 












LDA 


10 


."Idem poids falble 


ML I EQU 


SBF00 


; Entree de ProDOS 




STA 


PCL 





20FO- 


60 


38 


60 


02 


02 


04 


02 


02 


20F8- 


03 


02 


02 


04 


00 


03 


03 


00 


2100- 


D8 


AD 


6C 


BE 


85 


FA 


AD 


6D 


2108- 


BE 


85 


FB 


A9 


00 


8D 


92 


22 


2110- 


A? 


FF 


AO 


00 


E8 


C3 


BD 


41 


2118- 


23 


29 


7F DO 


05 


88 


DO 


21 


212 0- 


FO 


10 


Dl 


FA 


FO 


EE 


49 


20 


2128- 


Dl 


FA 


FO 


£8 


t'8 


BD 


41 


23 


2130- 


DO 


FA 


BE 


92 


22 


AD 


92 


22 


213 8- 


CD 


91 


22 


DO 


Db 


38 


4C 


9E 



2140- 


BE 


88 


8C 


93 


22 


AD 


5F 


21 


2148- 


3D 


50 


BE 


AD 


60 


21 


8D 


51 


2150- 


BE 


A9 


00 


8D 


54 


BE 


8D 


55 


2158- 


BE 


8D 


53 


BE 


18 


60 


4C 


61 


2160- 


21 


DB 


AF. 


9P 


22 


FO 


43 


CA 


2168- 


F0 


3A 


CA 


AO 


00 


B9 


00 


02 


21 70- 


C9 


8D 


FO 


03 


C8 


DO 


F6 


B9 


21 78- 


00 


02 


99 


08 


02 


88 


CC 


93 


2180- 


22 


DO 


F4 


98 


38 


69 


08 


A8 


2188- 


A9 


AO 


99 


FF 


01 


88 


DO 


FA 



2190- 


BC 


22 


23 


BD 


03 


23 


AA 


BD 


2198- 


$3 


22 


99 


FF 


01 


Ch 


88 


DO 


21A0- 


F6 


4C 


03 


BE 


20 


00 


BF 


65 


21A8" 


58 


22 


20 


00 


BF 


C5 


54 


22 


21R0- 


BO 


78 


AD 


31 


BF 


8D 


52 


22 


21B8- 


fl9 


03 


20 


ED FD AD 


52 


22 


21C0- 


OA 


OA 


OA 


OA 


A8 


B9 


00 


02 


21C8- 


3D 


53 


22 


29 


7F 


4A 


4A 


4A 


21D0- 


4A 


09 


BO 


20 


F.n 


FD 


A9 


AC 


21D8- 


20 


ED 


FD 


A9 


C4 


20 


ED 


FD 
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J d&code 



IJ)X 
IDA 
BEQ 
JSR 
LDY 

cpy 

BNE 

IDA 
CMP 
BNE 
DEY 
IDA 
CMP 
BNE 
DEY 
LDA 
CMP 
BNE 
TJ1Y 
STY 



1 nonml i LDA 
STA 
LDA 
STA 
LDY 
JSR 
CPY 
BNE 

IDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
SEC 
SBC 
BCC 
CMP 
BCS 
TAX 
LDY 
BEQ 



«0 

(PCL,X1 
Ifln 
IN5D5P2 

I.F.NGTH 

#2 

J sui v»nf 

(PCL) , Y 
l>MLI 
] nonml i 

(PCL) , Y 
«<MLI 
) nonml i 

(PCL) , Y 
• S70 
| nonml i 
•5 

LENCTH 

PCL 
ADH 
PCLtl 
ADR+1 
LENGTH 
CALCUI, 

ts 

| suivant 
(PCI.) , Y 
ADR 1 1 

(PCL) , Y 
ADR 

(PCL) , Y 
IALLOC 
Icalcul 
IREADBLOC 

lealeul 

IHRITEBLOC 
Jcalcul 

ISCO 

I suivant 
ISC 

I suivant 

OFFSET, X 
] suivant 



; Indispensable pour INSD5P2 
;L* instruction est egaie a BRX 
;alors debut des donneea 
* Decode une instruction ct 
; determine sa longueur 

rLnngu**ur < 3 : operands inchange 

sL 1 instruction est-elie JSR MLI '! 



j Inst ruction du MLI sur C octets 



^Passage de parametre pour CALCUI. 



jlnstruction sur 3 ou 5 octots 
jcalcul d'une adresse relogee 
fEst-cc JSR SBFOO ? 
-Non alars instruction auivanie 

;Adresse des parametres MLI 
finise comme poramctro dc CALCUL 



; Of fact des operartdea a changer 

jsuivant le code d* tonc?rinn MM 

.-Or£aet - 3 poui ALLOC INTERRUPT 

; ainsi uuc yuui READ BLOC 

; ainsi. gun pour WRITE BLOC 



Icalcul JSR CALCUL 

CPY 14 

BNE IsuivanL 

LDY 12 

BNE Icalcul 

1 suivant IDA length 

SEC 

ADC PCL 

STA PCL 

IDA PCI.+ l 



;Offset des codes do SCO a SCO 
^Transformation saut pour NEWLINE 



•Cas d* OPEN £ HKNAMK (doublee) 
;slnon une seule transformation 
jOffset du second parametres 
I - JMP 

=Longu«ur do 1 'instruction - 1 
:Calcul de l'adresse suivantc 



ADC 


10 




STA 


PCL*1 




SEC 






SBC 


ADRESSE 


;LonflUCur du code dcsasocsmbl&c 


LJJX 


PCL 


; mtse en X, A 


JSR 


TE5T 


;T*3t si < longueur du programme 


BCS 


Jfin 




JMP 


] liucmde 


; I nst ruct ion suivantc 


RTS 







I fin 

* TEST une longueur 

' Longueur on X, A (A poids fort) compare* a KIN-DEBUT 

* Si inferleur C - 0, ainon C - I 



TEST 


CMP 


l>FIN-DEBU 






BCC 


)oui 


f ou op«rande > adresse 4* tin 




RNF. 


) non 






CPX 


|<FIN-DEBUT,'Taat poids faibie de I »np*rande 




BCS 


) non 




I out 


CLC 




;Comprio entre las limited 




RTS 






1 non 


SEC 








RTS 






• CALCUL 


des 


op^ranries a 


modi f ier 


• Poids 


fort 


de 1 'opera nde a modifier en (ADR) , Y 


- R«tuu 


C C - 


1 si aucunc transformation, sinon 


CALCUL 


DEY 








LDA 


(ADR) , Y 


.•Pnifii faibie de 1'operande 




TAX 




; en X 




I NY 








LDA 


(ADR) . Y 


,-Poids fort de l'opcrande en A 




SEC 




;Comparaison de 1 'nperande et 




SBC 


ODE BUT 


;A<1icsj<: u'aasembloge < operandc? 




BCC 


] non 






JSR 


TEST 


,-Operande dans lea Hmitcs? 




BCS 


]non 


;Non: instrucrtnn suivant* 




ADC 


ADRESSE 


;3i oui calcuXe l'octct de poido 




STA 


(ADR) , Y 


; tort de 1* adresse rranslai.ee 




CLC 








RTS 




t 


J non 


SEC 








RTS 






• Variables du reiogeur 




OFFSET 


Dt*B 




1, ?., 7, 4, , 3, 3;Of fset pour les codes 




de SCO a SCO 




ADRESSE 


DS 


1 


•Adresse nu relogement 




DS 


DEBUT-' 


;Le debut doiL elrc align* 



Debut du code reloaeable 



interpret sur des rnmmanrtp.i 



21E0- 


A9 


Bl 


2C 


53 


22 


10 


02 


A9 


2230- 


B9 


00 


02 


A2 


OA 


C9 


28 


FO 


2280- 


AO 


CI 


AO 


DO 


D2 


CF 


cn 


CF 


21E8- 


B2 


20 


ED 


FD 


A9 


AO 


20 


ED 


2230- 


OC 


A2 


IE 


C9 


45 


FO 


06 


C9 


2288- 


D3 


AO 


D6 


CF 


CC 


D5 


CD 


C5 


21F0- 


FD 


A9 


BD 


20 


ED 


FD 


A9 


AO 


2240- 


52 


FO 


02 


A2 


00 


BD 


5F 


22 


2290- 


00 


21 


00. 


00 


C2 


D3 


CI 


D6 


21F8- 


20 


ED 


FD 


AD 


53 


22 


29 


OF 


2248- 


FO 


06 


20 


ED 


FD 


ES 


DO 


F5 


2298- 


C5 


D2 


C9 


C6 


D9 


C2 


CC 


CF 


2200- 


OD 


53 


22 


DO 


06 


20 


2T 


22 


2250- 


60 


00 


00 


00 


02 


00 


00 


02 


22A0- 


CI 


C4 


Cb 


CC 


C5 


D4 


C5 


C3 


2200- 


18 


90 


13 A9 


AF 


20 


ED 


FD 


2250- 


04 


00 


00 


00 


00 


00 


00 


C9 


22A8- 


ca 


Z>4 


CI 


CC 


CF 


C? 


CF DO 


2210- 


C8 


B9 


00 


02 


09 


80 


20 


ED 


2260- 


AF 


CF 


AO 


C5 


D2 


D2 


CF 


D2 


22B0- 


C5 


CE 


D7 


D2 


C9 


04 


C5 


D8 


2218- 


FD 


CE 


53 


22 


DO 


F2 


A9 


8D 


2266- 


00 


CE 


CF AO 


C4 


C5 


D€ 


C9 


22B3- 


CS 


C3 


D2 


CS 


CI 


D4 


CS 


C6 


2220- 


20 


ED 


FD 


CE 


52 


22 


10 


90 


2270- 


C3 


C5 


AO 


C3 


CF 


CE 


CE 


C5 


22C0- 


D2 


C5 


D3 


D4 


CF 


D2 


CS 


CE 


2228- 


IB 


60 


20 


8B 


BE 


38 


€0 


C8 


2218- 


C3 


D4 


C5 


C4 


00 


CE 


CF 


D4 


22C8- 


CI 


CD 


C5 


C2 


D2 


D5 


CE 


CC 
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• Retour a une *ui»nri]iill* autre commando 

• ol aucune des commandos n'est lecormue 





CLD 




;Non indispensable mais 




LDA 


VP AT HI 


yAdresse-1 do la commando entree 




STA 


ADR 


;mise dans un pointeur tempoiolre 




TJ1A 


VPATHl+i 






STA 


ADR+1 






LDA 


to 


; Initialise le compteur 




STA 


NOCMD 


- dos commandea 




LDX 


ISPF 


flnitialise sur la Here commande 


] cherche 


TDY 


ISOO 


.-Pointe ler earaetero do 1 'entree 


] compare 


IHX 




fCaract-ere suivant 




INY 








LDA 


NEHCMD , X 


/Charge une lettre de la commande 




AND 


#S7F 






BNE 


Isuivant 






DEY 




; ler caractere ? 




BNE 


trouvfc 


;Non alors comparaison complete 




BEQ 


] comsui 


■ 


1 suivant 


CMP 


(ADR) , Y 


.'Comparaison avec 1' entree 




BEQ 


1 coropa re 


;Identiquea -> auivonte 




EOR 


*320 


; sinon compare 




CMP 


(ADR) , Y 


; avee unc minuscule 




BEO 


] com pa re 


; Trie nr i ques — > suivante 


laut re 


INX 




; Recherche un polnteur commande 




LDA 


NEWCMD,X 






BNE 


1 autre 


; Debut d'une comma nde ? 


) consul 


INC 


NOCMD 


; Commands su 1 want-«» 




LDA 


NOCMD 






CMP 


NBCMD 


; F.nrnre une ? 




BNE 


] cherche 


;Va tester la commands aulvante 




SEC 




; Commande non reconnua 


PRECMD 


JMP 


X RETURN 


;Saut a la command* precedence 


trouvc 


DEY 








STY 


LKCMD 


/Memoriae la longueur-1 




LDA 


) vecteur*! 


/Charge l'adresse de 




STA 


XTRNADDR 


; retour vera la commando 




LDA 


I vecteur+2 






STA 


XTRNADDR+1 






LDA 


#0 


i Aiifiin rv* r mnAl r#> nnrnr' <t£ 

r nuuun ft* i Ulll^. h. i %J D ULUi « t>b 




STA 


PBITS 






STA 


PBITSfl 






STA 


XCNUM 


rlndique commande oxterne 




CLC 




rLa commande a £rA rroiive 




RTS 






• Vecteur d' indirection 


vers les commandea 


' (JMP ee 


t indiapensable 


pour permcttrc le rclogepient) 


] vecteur 


JMP 


DISPATCH 


;Vecteurs dea commandes 


■ DISPATCH des 


cnmiTianflos 


instal lee 











• Esaai dee cownanfles evternes 1'une apres 1 'autre 



DISPATCH CLD 

LDX NOCMD 
BEQ CONLIKE 
DEX 

BEQ COBYE 



.-[■fumbie de commandes 



DEX 
LDY 

] nocr LDA 
CMP 
BEQ 
INY 
BNE 

Jdecale 1JJA 
STA 
Dfci 
CPY 
RNE 
TYA 
SEC 
ADC 
TAY 
LOA 

] efface STA 

DEY 
3S'E 
LDY 
LDA 
TAX 

; command LDA 
STA 
DEX 
DEY 
BNE 
JMP 



/N" de la commande du DI 

• 

BUFF IN, Y 
I58D 
] decalc 

) nocr 
BUFFIN, Y 

DUFFINte.Y ;Decalaqe de 9 octeLs 

LNCMD /Compare avec la lonejueur 

Ideeale 
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»3A0 ;Espace 
BUFFIN- 1,Y 

I efface 

PROLNG.X /Longueur de la commande 8T 
PROVEC.X ;Offaet du dernier caractere 



PROCMD-1 , X 
B"FFIN-1,T 



] command 

DOSCMD .-Execution de la commande, et fin 

(retour avoc un traltcmont d'erxcur oventuel) 



s;nl:se 



jsr 

DFB 
DA 



MLI 
QUIT 
QUIT PARA 



JSR MLI 

DFB ONLINE 

DA ONLTNEPA 

bcs ] finer* 

LDA DEVCNT 

STA CNT 

LDA l"S" 

JSR COOT 

LDA CNT 

ASL 

ASL 

AST. 

ASL 

TAY 

LDA BUFFIN, Y 

STA BYTO 

AND I57F 

LSR 

L5R 

LSR 

LSR 

ORA #"0- 

JSR COOT 

LDA ■»,■ 

JSR CQUT 

LDA »-L>" 

JSB CfXIT 

LDA #-1- 

BIT BYTO 

BPL Jd2 



;Au re voir ! 



Teste tous les lecreura 



flsole le slot 



.•Conversion en code aocii 



22DO- CF C3 CD C3 C8 C2 C9 CE 
22D8- A3 C6 CC D5 D3 CS F2 E5 
22E0- El E4 DO CF D3 C9 D4 C9 
22EB- CF CE CF CD CF CE DO D2 
22FO- A3 DO D2 C5 C6 C9 D8 C3 
22F8- CC CF D3 C5 CI DO DO C5 
2300- CE C4 AD 6E OK 3R 05 J A 
2308- 16 44 68 PR 13 2G 4A 2E 



2310- 45 0E 3F SA IE 56 63 5D 

2318- 4E 37 33 3B 05 33 3F 09 

2320- 23 6F 06 0$ 04 05 07 03 

2328- 05 05 06 06 04 05 03 03 

2330- 04 04 05 04 08 06 03 04 

2338- 06" 07 03 04 05 06 06 05 

2340- 01 CF CE CC C9 CE C5 8D 

2348- 00 C2 D9 C5 8D 00 00 C2 



2350- CC 00 C2 D2 00 C2 D3 00 
2358- C3 C7 00 03 D4 00 C3 C8 
2360- 00 C3 CC 00 C3 D2 00 C4 
2 368- CC 00 C5 D8 00 00 00 C9 
2370- 00 4C 44 00 CC CB 00 00 
2378- 00 00 DO D8 00 DO 00 00 
2380- D2 CE 00 0O 00 D3 CI 00 
2388- 00 Db CE 00 D6 C5 00 00 
2390- 00 
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IDA • "?' 



* Constantes et variables de 1 1 interpreteur 



)d2 JSR 


COUT 




• — — — 






LDA 


»" - 




NBCMD 


DFB 


PROLNG-PROVEC+2;Nombre de commandea 


JSR 


COUT 




NOCMQ 


DS 


1 fNumero de la commanrtp CTOU 


LDA 


#" = " 




LNCMD- 


DS 


1 ;Lonaueur de la commando tr 


JSR 


COUT 










LDA 


• ■ ■ 




HROCMD 


EOU 


.-Table des uonunandes ProDOS 


JSR 


COUT 




bsave 


ASC 


"B" 


LDA 


BYTO 




save 


ASC 


"5A" 


AND 


• SOF 


; Isale la longueur du nom 


verify 


ASC 


■VE" 


STA 


BYTO 




bsave. 


■ 




HNK 


Jnoerr 


;Erreur ? 


save _ 


- 


• 


JSR 


PRINTERR 






ASC 


-aiFY" 


CLC 






verify. 


= 


> 


BCC 


1 suite 


;Tou jours pris 


bload 


ASC 


"L>" 


]noerr LDA 


»"/■ 


.•Affiche le nom du volume 


load 


ASC 


"LOA" 


JSR 


COUT 




delete 


ASC 


"D" 


Jaffichc INY 






bload. 




sr 


LDA 


BUFF IN, Y 




load. 


_ 


■ 


ORA 


iseo 


- 




ASC 


■ELETE" 


JSR 


COUT 




delete. 




* 


DEC 


BYTO 




catalog 


- 


• 


BNF. 


laffiche 




cat 


ASC 


"CAT - 








cat. 




• 


Jsuitr I .DA 


- ; 


; Sauce une llgne 




ASC 


-ALOG" 


JSR 


COUT 




catalog . 




■ 


DEC 


CNT 


; leeteur suivant 


open 


ASC 


"OPEN" 


DPL 


] device 




open ■ 




■ 


CLC 




;Pas d*«rX«UT 


write 


ASC 


"WRIT" 


RTS 




;Rctour ou DI 


exec 


ASC 










write. 


p 


• 


Ifinerr JSR 


DADCALL 


,-Convertie l'errcur MLI en BI 




ASC 


"XE" 


SEC 






create 


ASC 




RTS 




,-Retour avec affichage de l'errcur 


exec. 


m 


• 










ASC 


"REATE" 


* Afflchage de l'erreur 




create . 


m 


■ 


PRINTCRR TNY 






fre 


ASC 


"F" 


LDA 


BUFF IN, Y 


;Cudc de 1 'citeut 


restore 


ASC 


"RE" 


LDX 


KNOCONNEC 


-TABERR 


Ire. 




• 


CMP 


• 528 




stoic 


ASC 


"STO" 


BBQ 


}*Hott 




rename 


ASC 


■RE" 


LDX 


IKNOPRODOS 


-TABERR 


restore. 




- 


CMP 


1545 




store. 


a 


• 


RFQ 


Jafferr 






ASC 


"NAME" 


CMP 


#552 




rename . 




• 


HF.Q 


Jaf ferr 




brun 


ASC 


"3" 


LDX 


•<IOERR- TABERR 


run 


ASC 


"R" 


] a £ f err LDA 


TABtHK, X 




nnl nrM 


ASC 


"UN" 


BEG 


[fin 


;Fin du message 


brun. 


- 


* 


JSR 


COUT 




run. 




■ 


INX 






lock 


ASC 


"LOCK" 


RNE 


Jaffprr 


;Tou jours pris 


unlock. 


3 


• 


}fin RTS 






lock. 


m 


e 








chain 


ASC 


"CHA" 


• Variables 


et cunstantesi 


in 


ASC 


"IN" 






chain. 




* 


DFB 





; 3eparateur 




ASC 


"1" 








in. 




» 








flush 


ASC 


"FLUSH" 


* Paramctrco 


ct variables pour QUIT £ ONLINE 


tlush. 


= 


• 








read 


ASC 


"read" 


CNT DS 


1 




read. 




• 


BYTO DS 


1 




position 


ASC 


"POSITIO" 


ONLINEPA DFB 


2 




nomon 


ASC 


"M* 


DFB 


D 


•Device number = 3 <=> tous 


position 


■ 


e" 


DA 


BUFF IN 


;Buffer de 5100 octets aeulem-ent 




ASC 


"OHON" 


QUtTPARA DFB 


A 




nomon. 


s 


« 


DFB 







pr 


ASC 


■Ml" 


DA 







pr. 


= 


* 


DFB 







prefix 


ASC 


"PREFIX- 


DA 







prefix. 


- 


■ 


TABERR EOU 


* 




close 


ASC 


■CLOSE" 


IOERR ASC 


"I/O ERROR 




close. 






DFB 







append 


ASC 


"APPEND" 


NOCONNEC ASC 


-NO DEVICE 


CONNECTED" 


append. 




• 


DFB 







tlret 


ASC 


■ _ ■ 


KOP-RODOS ASC 


-NOT A PRODOS VOLUHE" 


tiret . 




* 


DFB 


a 
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PROVEC EQO 

DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 

DFB 

DFB 
DFB 
DFB 
DFB 
DFD 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 

PROLNG EQU 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 

DFB 

DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 



* ;Offset dca adiesae5 des noms (der 

'.<■.- caractere) 
append . -PROCMD 
bload.-PHOCMD 
brun. -PROCMD 
bsave. -PROCMD 
catalog. -PROCMD 
cat . -PROCMD 
chain.-PROCKD 
clone. -PROCMD 
create. -PROCMD 
delete. -PROCMD 
exec. -PROCMD 
fluah, -PROCMD 
f re. -PROCMD 
in. -PROCMD 
1 nari . -PROCMD 
lock. -PROCMD 
nooon.-PHOCMD 
open. -PROCMD 
posi r ion. -HHOCMD 
prefix. -PROCMD 
pr . -PROCMD 
read. -PROCMD 
rename. -PROCMD 
lesLoie. -PROCMD 
run. -PROCMD 
save. -PROCMD 
store. -PROCMD 
unlock. -PROCMD 
verity. -PROCMD 
write. -PROCMD 
tint. -PROCMD 



,'Luitgucui dca nums 
append. —append 
bload.-bluad 
brun. -brun 
baave.— baave 
catalog. -catalog 

chain. -chain 
close.— close 
create. -create 
delete. -delete 
OMec.-exee 
flush. -flush 
fre.-fre 
In. -In 
load. - 1 oad 
lock.-) nek 
nomon. - notnon 
open. -open 
poalLlun.-poaKlun 

pxef ix. -prefix 

px.-pr 

read .-read 

rename, -rename 

r«atore .-restore 

mn.-iun 

save . -s ave 

a tore. -store 





unlock. 


-unlock 


DFB 


veri ty . 


-verify 


DFB 


write. - 


write 


DFB 


tiret 


tiret 


eau 


■ 


,-Table dec nouvollca 


ASC 


-ONLINE 




DFB 


S8D,0 


/online * CR (pao dc 


ASC 


"BYE" 




DFB 


S8D,0 


;byc * CR (idem) 


DFB 





; append 


ASC 


■BL- 




DFB 





t blood 


ASC 


"BR" 




DFB 





7 brill) 


ASC 


"BS" 




DFB 





rbiava 


ASC 


-CG- 




DFB 





.•catalog 


ASC 


•CT" 


• 


DFB 





.-cat. 


ASC 


■CH" 




DFB 





,* chain 


ASC 


■CL» 




DFB 





;elnse 


ASC 


"CR" 




DFB 


a 




ASC 


■DL U 




DFfl 


n 




ASC 


-EX- 




DFB 





;cxec 


DFB 


D 


; r 1 ush 


DFB 





;fre 


ASC 


•I" 




DFB 





;inl 


ASC 


■LD" 




DFB 





rload 


ASC 


"LK" 




DFB 





1 lock 


DFB 





; nomon 


DFB 





iuyen 


DFB 


u 


; position 


ASC 


"PX" 




DFB 


a 


.•prefix 


ASC 


-p" 




DFB 





;prt 


DFB 





; read 


ASC 


-RN- 




DFB 







DFB 





I restore 


DFB 





; run 


ASC 


■SA" 




DFB 





; sa ve 


DFB 





l store 


ASC 


"UN " 




DFB 





/unlock 


ASC 


"VF." 




DFB 





; ver i f y 


DFB 





.•write 


DFB 





; tiret 


DS 


F1N-" 





'BF/26/S/86 



.ttritrtirti/titrft fftitttiiirriitfitjiit'iirtti i i i l i i / // ill l i i lift 

/ 

Accompagne* d'unc cinquantamc dc pages dc documentation. Disk Manager pcrmet dc rccrCcr Ics eommandes du Dos, ' 
reddfinir l'organisalion d'unc disqucttc, grace a un jeu destructions qui cn fait un langage simple d'acces a la disquelle. ^ 
II offrc 6galcmcnt un programme d'i£dition a l'aide de eommandes -cvoludes. 4 ulilitaircs figurcnt aussi sur la disqucttc : f 



8isk Manager; 



- Ulilt-disque : reconstruction d'une disquetie dtfmjitc, Verification, 

Plan d'occupation 

- Ultra-copic : pour un backup paniculierement rapide ■ W\ * 4- 

- Edicat : Edition du catalogue, classement des fichiers, Titres... |(J JL/OS 60 lSk.lL 

- Multi-disque : pour le classement de tous vos programmes (tri instantanfi). 

de Dan Steerey 
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Pour m Bool ergonomqw • 

Sup Pw<* c » m P ,ct 



Le PASCAL UCSD offre la 
possibility de dater les fichiers, 
mais on oublie tres souvent dc 
mettre & jour la date lors du Boot, 
car il faudrait appeler le FILER 
puis choisir ['option 'D)ate' puis 
•Q)uit\ 



C'est done le but du programme 
qui suit avec des pctitsplus. 

En effet. il permet : 

• de mettre il jour la date en 
mdmoire et sur disquette, la 

syntaxe &ant la suivante : 

jour-mols-annee 
jour-mois 
-moio-anncc 
jour -annee 
jour 
-mois 
— annee 

• de placer automatiquement le 
nom du volume 5 (lecteur 2) en 

m£moire comme pnSflxe courant ; 

• d'afficher tous les fichiers 
'CODE' du volume 5 et 

d'ex£cuter Tun d'eux en pressant 
simplement sur une touche ; 

• d'appeler directement l'6diteur 
ou le Filer ; 

• de quitter le programme. 



Pour cela, il a fallu rcchercher les 
adresses de la dace et du preTixe 
en me" moire pour le systeme 
Pascal 1.2., a 1'aide du 
programme Prg.l. TEXT. Elles 
.sont diffe*rentes pour les versions 
64Ko et 128Ko. Le programme 
Startup utilise celles du Pascal 
1.2 128Ko. 



Le principe 



La date occupe 2 octets et le 
preTixe 8. Sur disquette, il faut 
savoir que pour chaque fichier le 
systeme r6serve 26 octets et le 
nombre maximum de fichiers est 
78. La structure apparait 
clairement dans le programme. 



Daniel Mueller 



Pour lire et tfcrire le 
DIRECTORY (qui debute au 
deuxieme bloc et occupe 4 blocs) 
nous utilisons respectivement les 
fonctions UNITREAD et 
UNITWRITE. 



Programme 'PRG.1.TEXT 

program recherche; 

type Tdate - record case bcclean of 

true | (adcesse ; integer) 
false ; fdatesys ; ~R_datc) 
end; 

fi_dacc - pocked record 

mois : 1 ..13 J 
jour ; 1..31; 
annee : 0. .100 
end; 



var data : T_date; 
Ddate : R dace/ 

begin 

i Initialise Ddate avec la dace actuellement en memolre 
aller dans le FILER et mettre par ex: 1 }an 56 ) 

with Ddate do 
begin 



Jour 
mois 



- 01; 

- 01; 

- 86; 



annee 
end; 

with date do 
begin 

adresse .— -32161; ( $8000 ) 

while adresse < -163BS I S9FFF ) do 

begin 

if dateays" - Ddate then wrlteln ('adresse ' f adressef; 



( Comparaiaon de la date en memolre avec Ddate I 
I Incrementm 1 'adresae ) 



adresse :- adresse * 1 

end t while ) 
end I with ) 
end. 



{ Initialiser la date en memolre et Ddate dti programme avec les memo valeucs. 
Lancer 1m programme cl-dessus et re! ever tow.es le adreaaes attichoos 
puis changer aeulement la date en memoire (par le FILER) et relancer 
le programme. L' adresse de la date sera celle qui n'a pas ece atricnea. ) 
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Adresse dc base version 1.2 

128Ko 64Ko 

Date $B85A $ACFC 

Pr&fixe $B84A $ACEC 



Pour l'adresse de la date des 
versions 1.0 et 1.1, onj>eut se 
r^ferer a l'article de M. Pascual 
pam dans le num^ro 16, l'adresse 
du pr&fixe £tant obcenue en 
ajoutam 16 k celle de la date. 



Si Ton ddsire 'booter' sur ce 
programme il faudra le 
sauvegarder sous le nom de : 

S YS TEM . S TAR TUP 

sur le lecteur 1, ainsi il sera 
ex6cut£ automariquement. 

Ce programme tourne sur Apple 
// possddant deux lecteurs de 
disquettc. Pour im systeme avec 
un seul lecteur, il faudra modifier 
la ligne indiqufe dans le listing, 
(procedure FDC_VOL) 



Bibliographic 

APPLE Pascal, Operating system 
reference manual, Language 
reference manual, 

D<Scouvrez PASCAL (tome 2) sur 
Apple If, //e, //c de John Colibri 
6dixi par MNEMODYME. 

Le systeme Pascal UCSD (tome 
2) dc Thierry CI I AMOR ET edit6 
par ED IT EST. 

G 



Programme 'STARTUP. TEXT 

program STARTUP; 

vs&s chains tuff { setchaln (FIGHTER), 

rajoute le suffixe .CODE a FICIIIER 
apuls 1 'execute )• 

const booC_vol - 4; ( Drive I on volume 04 ) 

couz_vol - 5/ / Drive 2 ou volume 05 } 

max long = 7; f Lonq max. du nom de volume ) 

adrdate = -18342; ( Adresse dc la date pour Pas 

seal [1.2} \28K 0B8SA) 
adrtlx = -18358; { Adresse du prcflxe pour Pas 

ucal [1 128K OB84A ) 

dash - 

month = ' ???JanFebMarAprMayJunJul AugsepoctNovue 

pe»t 

typo system ■ record case Integer of 

1 : (datesys : T_6ate); f pmcp pa 

»ur la date } 
3 ; (volumesys : "vol;,* f poke po 

»ur le volume ) 
? : (adresse r Integer) ( Adresse 
» en memoire } 
end; ( record ) 

£ mois = 1**12: 



»TORY[0J 

informations po 
»ur le Volume ) 

(tillerl 

»: 0..2048; 

{ Nom de la disquette } nom disk 

» ; vol ; 

I Numero cfu dernier bloc du volume } bloc nbrc 

inteaer; 

I Nombre max. de tichlers sur disquette } file nbre 

0..77; 

f Initialise - neure du dernier acces ■ time 

»: integer; 

I Date courance ) boot date 

»; r_date); 

tsdsk, code, text, info, 

data, grat, foto .• 

(filler 

u: U..1U24; 

I Utilise par le FILER ) etat 

»; boolean; 

{ Nom du fichicv } filename 

»; string [15] ; 

( Nbre d 'octets ds le der. bloc du flchlcr] nbrcoctct 

»: 1..512; 

{ Date de la derniere modification ) modifdate 

Mi r date; 



r_cfdCe - packed record 

mols : rjnoisj 
jour : 1..31; 
anncc : 0. .100 
end; ( recorp ) 

vol ' string [max lung} ; 

volume - 4.. 12; ( Numeio des volumes ) 

ordre m (lire,ecrlre; ; ( Ordre pour la proced 
»ure 10 Disk I 



end i record i; 



var directory : array [0..77] of infodir; 

prefix : vol; 

fichier : strfllc; 

date : r_date; 

mcmolre ' : system; 

ch : char; 

ok : boolean; 



strrile = string 118] ; 
Inngstrlng = string 1255]; 

flletyp = (untyped, xdsx, code, text, info, data., gra 

»f r foto, secure! ; 
f Types de tichlers utilises par Pascal f 

1nrf)dir = packed record 

prebloc : Integer; { Premier bio 

»c physique de la dlsq. ) 
derbloc ; inteaer; ( Dernier bio 

mc du directory } 
case flletyp of 

secure, untyped f Seulement DIREC 



procedure IO DISK (commando : ordrc; drive : volume); 
( Procedure gerant les entrees/sorties avec les lecteu 

»rs disquettes 
el InterceptanL les erreurs ) 

function no_ERREUR : boolean; 
var num_error : Inteqer; 

procedure wri te_ERREUR; 
r.nnsr inverse = 15; ( Mode Inverse ) 
normal -14; ( Mode normal ) 
var ch? : char; 
beqin 

page (output); 
gotoXY (10,08); 



28 



Pom's n° 26 



write fchr (inverse) ; 
case num_error or 

2 : write CNUMERC DE VOLUME IHCORREECT ' 

»); 

5 : write ('PERTE DU VOLUME'); 

7 : write fNGM DE FICHIER ILLEGAL'); 

9 : write CLE VOLUME SELECTIONNE N' 'EST 

» PAS EN LIGNE't; 
64 : write ('ERREUR GENERALE ACCES D1S0UE 

•») 

end; ( case ) 

write fchr tnoimal)); 

gotoXY (10,lQ); 

write (chr (7), 'COUTROLER VOTRE LECTEUR OU LA 
»DISQUETTE ' , Chr IT)); 

gutuXY (10,12); 

write ('Pressez una couche quelconque pour con 
»tlnuer '); 

repea t 

read (Keyboard, ch2) ; 
until ch2 > enr (()); 
page (output); 
and; ( Urlte_ErreuR ) 

begin f No tirreiiH ) 
no_erreur ;« false; 

num error :~ IORESULT; ( Numero de 1 'erreur ) 
if (num_error - 0) or (num error - 16) t i$ •> di 
»squelte pruteijeu ) 
then no erreur ;- true 
else wr1tt*_ERREUR: 
end; { No_ErreuR I 

($1-) 

begin { IO_disK ) 
repeat 

case convnande of 

ecrire : uniLwrtte (dzivcdiiecLuLy^siceof 

«■ (directory) ,2); 
lire : uniLread (drive, directory, siieof 
» (directory) ,2); 

end; f case ) 
until no erreur; 

end; ( IO_dlsK } 
(51*} 



procedure FIXE_VOL; 

( Fixe le nom du volume #5 en memo ire ) 
begin 

( Lit sur le drive ? le nom de la dlsquette ) 
IO_disk (lire, cour_vol) ; 

{ Pour un systeme avec un seul lecreur remplacer cv 

»tte liqne par : 
IO_dlsk (llre,boot_vol) ) 

prefix :- directory {01 .nom di3k; 
( Lo tlxe en memoire ) 
with memoire do 
begin 

adresse ;= adrfix; 

volumesys" := prefix; 

end; ( with } 
end ( Fixe voL ); 



procedure FIXE_DATE (disK : boolean); 
( Lit la date sur volume §4 

au la met a Jour en memulie et sur dlsquette ) 
begin 

if disk 

then begin 

di rectory {0} ,boot_da.Le date; 

( St la dtsqueLte est /jruLeytje coflCre I'ecriture 
SI n'y aura pas do message d'erreur 
la dace ne sera remise a Jour seulemenL en memolze I 



10_dlsk tocrlre,z)oot_vol}; 
end ( if then ) 
else begin 

XO_disk ilire,boot_vol) ; 
date := directory (OJ .hnnt_date; 
end f if else ); 
( Fixe la date en memoire l 
with memoire do 
begin 

adresse adrdate; 
da t esys " : - date; 
end; ( with } 
end; t Fixe QatE / 



procedure CATALOG (var strn : strfllo); 

( Lit le oi RECTORY de #5 esr afflche seul emenL les flc 

Thiers codes (max. S3) 
posslhl 1 ire d'F.XF.cUTRR 1'un de ces tichiers en pzes 

usant 

la l etc re correspondante i 
var n,k,col : integer; 
chl : cliai; 

pile : packed array ('A'., 'z'/ of integer; ( M 
»AX 58 fichiers / 

begin 
repea t 

strn := "; 

n 0; ( Compteur fichiers codes ) 
k : s 0; ( Compceur general ) 

£ixe_vol; 

page (output); 
gotoXY (27,2); 

write ('directory i prefix); 
repeat 

k := k * 1; ( On cstmmenre par dl re>ctary ( 1 \ cal 
*tdlrcctor#( 0] etant 
reserve pour les informations gen 
nerales do la dlsquette } 

with direcrnry(k) do 

if cos (' .CODE' , filename) <> ( Position de 
» .CODE / 

then begin 

strn := filename; 

delete (strn f pos (' .COOE 1 ,slrn) , S>; 
»(' Efface .CODE ) 

( Hise en colonnes (15 p. col.) den f 

»lchiers trouves ) 
cal (n dlv 15) * 20; ( Quelle col 
aonne ? / 

gotoXY (col+2,4+n mod 15); 
write ('(',cnr (ord CA')*n), • ) ' r st 
am) ; 

pile [chr (ord('A')+n) ] Xj ( Rang 

* du flch. dans DIR } 
n := n + 1; 
end ( if then ); 
until (k - directory [Q] .flle_nt*re) or (n = 58); 

if n - then beqln 

gotoXY (10,15); 

write (Chr (7), 'AUCUN FICHIER CODE 

» 1 ' ' ' r chr (7)); 
for n 1 to 2000 do; 
ok : * false; 
, exit (cataloq) ; 
end; f if then ) 
gotoXY (16,23); 

write (directory (Oj . flle_nbre, ' fichiers dont. ',n 
», ' fichiers "CODE' 1 . 

gotoXY (0,00); 

write ('Taper une 2ettre - <E5C> pour quitter - < 
»spacf.> pour re lire ? '): 

repeat 

read (keyboard, chl ) ; 
until chl in ['A'. .chr (ord ( 'A' )+n-l) ,chr (27), 1 

» • 

it ord (chl) = 27 
tfien begin 

ok :- false; 
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exit (catalog); 
end; ( If then ) 
until chl ' '; 

n f- pile (chl}; ( Ranq du 'ichler dans Directory ) 
( Le nom du flchler est retourne dans STRM ) 
strn :- concat (' tS: ', directory fn} .filename) ; 

end ( CataToG ); 



procedure DATESET; 
I Salsle dp la date 

- p0S3ibillte de rent ret settlement le jour 

- le Jour et le mots fwr trots lettres) 

- ou en entier 

- controle sa vaiidir.ft 

- sauveqarde sur la disquette du boot si dlfferente 

» / 

var temp : Integer; 

mois lit : string [3]; ( Represente le mois sous 
» sa farme Utterale ) 

finl ; boolean; 

sicg_ddie : langstrl ng; ( String pour la salsie d 
»° la date ) 

procedure EFFACE; 

{ Efface jusqu'au premier DASH ,y comprls ) 
begin 

delete (strg_date, l r scan (length (sttg_date) ,=da 

»sh, strg_da to[l}J); 
if length (strg_dite) > 

then delete (strgda te, 1, 1); 
end; { EffacE > 



i-a function SCAN ( llmlto, expression, debut ) : intcg 

»er; 

limits ; integer; est le nombce maximum d'octets 

» a explorer 
expression : boolean; caractere a rec/aercher 
F.X : = CM (If raracrere 3 rechereher egal a CH) 

<> CH ( - - ■ - different de 

u CH) 

sont les deux seules posslbiltes. 
debut : n' lmporte quel type sauf file; est le p 

»remier octet de la 
variable a partlr duquel la recherche d 
»ebute - 

La function SCAN retourne la position du premier oct 

wet verlflanz EXPRESSION 

Si elle est en tete de la valeur a explorer, la posi 

*tlon sera egale a zero. 

function TEST_ENTIER (max : inteqer) ; boolean; 
( Transforwe stfg_DATE en entier et resre si tfmp < 

» MAX, 

la valeur sera dans temp ) 
var x, stop : Integer; 
hegln ( Test_ent. ler ) 
temp rr 0; 

stop := scan (length (strg_date),=dash,strg_date 

for x := 1 to stop do 

if strg_date[x) in [ , , ..'9 I ] 

tlien temp ;= temp " 10 * oid (strg_da Le fx} J - 

wed ('O')i 

LesL_enLlec ;= (temp > 0) and (temp <= max); 
end; ( Test_entleR ) 

function ANALYSE D : boolean; 

( Test si les 3 premiers carac. de SRTG_DATE sont d 

»cs lottrcs) 

var x ; boolean; 

w : Integer; { Compteur ) 

begin 

w 3; 



x i= true; 

mols_llt :- •???•; 

It length (strg_dace) > 

then while (w < 4) and x do 

it strg_datetw] in {'A'.-'V'} 
then begin 

It w = 1 

then mols_lltiw} :- strg_da 
»te(w] 

{ La premiere lettre en HAJUS. et les 2 suivantes en m 

vinus. > 
eise mols_lit[w) :- chr (o 
urd (strg_dace(v] ) + 32); 
w .-- w i 1; 
f*nd ( if then ) 
else x false 
else x : 3 false; 
analyse W x; 
end' ( Analyse M } 



function ESPACE : boolean ; 

{ Supprlme les espaces ainsi que les caracteres < 32 e 

»t > 123 

PC convertl rout en majuscules I 
var w : Inteqer; ( Compteur ) 
begin 

v ;- id 

espace := true; 

while w <- length (strq_dato) do 

if (ord (sttg_date[w]) >= 33 / and ford (srrg_da 

»to(w)) <- 122) 

then tiegln 

if (strg_datc[wj 'a'/ and (stzg date{ 

»w) <= •/:•) 
then strg datefwj 

: m chr (ord (strg_date [w] ) - ord c 
* ord ('A'}); 

w ;= w t Is 
end ( if then ) 

else 

delete (strg_date r w, 1); 
if leniqth (strq_date) - then espace T m falser- 
end; { F.spacK J 



function TEST ; boolean; 

( Test la validitc dc la date (nbrc de jours dans chaq 



hub mats 



ct anncos biscxtiles) } 



var mois_30 : set of r mols; f M0JS_30 mois de 30 

» jours } 

okl : boolean; 

procedure MESSAGE; 

var wait : Integer; 
begin 

gotoXY (3, 20) ; 

hritc (chr (7), '« BRREUR dans la DATE »'); 
for wait := J tn ?0flO dn; 
gotoHY (3, 20) ; 
write (chr (29)); 
end; ( MessagE ) 

beqin ( Tcsl ) 
okl := true; 
test true; 

mois_30 := 14,6,9*11]: ( mois tJe JO Jours sont pius 

» nombrcux quo ce deux 31 
) 

with date do 
begin 

if (mois in mols_30) and (jour >~ 31) then okl : 

i>= false; 
{ Tost le mois de fovrior ) 

If f'dnntftf mod 4 ■ 0) dnd (mois = 2) and (Jout 
» 30) then okl := false; 
If fannee mod A > 0) and (mois = 21 and (jour >- 
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» 29) then okl : = false; 

end; {with I 

{ si la date est rausse on rescaure 1 'ancienne * me 

»ssage d'erreuc } 

ir not okl 

then begin message; 
test := false; 

with dl rectory (0} .boot date do 
n fig in 

date. Jour ! m jour; 
datfi.mntfs ;= mols; 
date. annee annee; 
end; ( with ) 
end; { if then } 
end; f TesT ) 

begin f DateseT ) 

fixe_date (false); 
page (output); 
gotoXY (0,2); 

wrlteln ('salsle de la date : <J. .3l>-<Jan. .uec>-<o 

»..99>'); 

with date do 
write 

(•La date actuelle esc le •, Jour, dash, copy tmont 
»h,mois*3tl,3) , dash, annee) 
»; 

repeat 

fini := raise; 

gotoXY (00,5); 

write f'Entrer la date ? '); 

write (chr (29)); ( EOL efface lusqu'a la fin de 

ula llgne ) 
readln (strg_date) ; ( Salsle de la date I 
gotoXY (0,0); ( Question d'osthotiquo ) 
if e space 

then with date do 
begin 

( TRAITEMENT PRINCIPAL DE STRG_DA 
»TE 

- Jour - ) 
if test_entler (31) 

then jour := temp; 
efface; ( Efface jusgu'au prochain '-' 
») ) 

( - mols - ) 

temp 1; ( Initialise le corrpteur po 

i>ur 'mols* ) 
1C (length (strg_date) > 2) and analys 

oe_M 

then while (temp < 13) and not fini 
» do 

( Verlfie si 'mols_lit' exis 
»to dans 'month' et 
initialise mois Ex: Jan-1 

a, Fav=2, ...f 
If copy (month, temp * 3 * 1, 
aJ) = nvts_llz 
then begin 

mols temp; 
fini .-» true; 
end I If then ) 
else iemp •'- ce/^P * 2* 
efface; ( Efface jusqu'au prochain *- 
»') ) 

( - annee - ) 
it (length (strg date) > 0) and test e 
mitler (99) 
then anncc temp; 

end f with t; 
until test; 

( si la date est difference on Id met a Jour sur d 

»isque et memoiro ) 

if not (date - dl rectory (0) .boo t_date) then fixe_da 

»te (true) 

end; ( DateseT ) 



La methode 

Volls n'avez pas la disquette 
d'accompagnement : il votts faut 
saisir et compiler le listing de 
fagon classique. 

Vous avez la disquette 
d'accompagnementt : 
II faut initialiser une disquette 
Pascal d I' aide du 
TORMATER'. Booter alors sur 
la disquette Pom 's et lancer le 
programme de transfert 
'BASIC-PASCAL'. Transferer 
alors le fielder STARTUP TEXT 
en suivant les indications 
fournies par ledit programme. II 
convient maintenans de compiler 
et d'exicuter comrne 
habitue Heme ni. 



beqin ( STARTUP ) 

f f xe_dR te f fa 7 se) ; 
fixe vol; 
repeat 

ok true; 
page (output); 

write ('Startup (DM): Q)ult, Diato, F)llor, t'fdlt 
*or, eX) acute ? {1.2}'); 

gotoXY (0, 1); 

wrlteln CLe PRBFJXB courant est : '^prefix); 
writ* ( a La DATE actuelle est t '); 
with date do 

write (jour, dash, copy (mon th r mois*i# J , 1) , das 
uh, annee) ; 

gotoXY (61,0); 
repeat 

read ( Ke yooa rd, ch) ; 

I Tout en majuscules ) 

if ozd (ch) > 96 then cn •= chr (ord (ctt) - 32) 

i 

until ch in /•£?', *£.'', 't ', 'Q', 'X' ); 
case ch of 
'£)' ! djceset; 

•E' : fichler ' 'SYSTEM. EDITOR. '; { Le point e 
usr nhllgarnlrf* pour les I 

•F' ; fichler ;- "SYSTEM. FILER . '; ( fichicrs s 
vans sufttxe .CODE ) 

*X' •" catalog (fichler) ;( Positlonne ok 3l aucun 
u ilchler ) 

'0' ; begin 

page (output); 

exit (program); ( ON QUITTE } 
end; 
end; ( case ) 
until (ch In I *E\ 'F', 9 X')) and ok; 
; -iV- (output); 

sotchain (fichler); ( OK let's go I 
end. ( STARTUP ) 

NJ3. : Les caracteras gui sutvent la signe *> sent en fait la suite de la Ikjne 
pre'ce'donio. 



J 



Pom's n° 26 



31 







J-F Babasas 



Les transmissions de donnees en 
s6rie (normc RS23ZC) sont 
frtfquemment utilisees sur 
micro-ordinateurs, L'application 
la plus simple est la gestion d'une 
imprimante serie. La transmission 
s6rie devient indispensable pour 
Cehangcr des donndes entre deux 
calculateurs, ou bien en local par 
liaison filaire, lorsque les deux 
machines ont des syslemes 
d'exploitation el formats de 
disquettes differents, ou bien en 
distant par liaison telephoniquc. 

Cet article, en deux parties 
autonomes, se propose de 
montrer la gestion d'une Carte 
Super Serie, sur un Apple en 
environnement CP/M. 

Pourquoi CP/M ? 

Tout d'abord parte que e'est un 
peu le "parent pauvre" sur Apple, 
et de ce fait les realisations de 
transmissions series sont rares, 
alors qu'il cxistc une 
inipressionnante bibliotiieque de 
logiciels de communication sous 
DOS 3.3. D'autre pan, les 
transferts de donne*es entre un 
Apple et une autre machine se 
feront vraisemblablement sous 
CP/M qui est un SED tres 
r^pendu. Si vous devez tranfe"rer 
vers une machine utilisant DOS 
3.3 ou ProDOS, il y a fort a 
paricr qu'un simple cchangc dc 
disquette suffira ! 

Pourquoi la carte SSC ? 

Cest d'abord la carte serie la plus 
courante sur Apple, et d'autre 
part e'est unc carte tres 
performante an niveau electro- 
nique alors que le logiciel de 
gestion existant sur la ROM 
interne pnJseme quelques ddfauts 
qui le rendent quasi -inutilisable 
dans beaucoup d'applications. II 
est alors indispensable de revoir 
complerement la gestion de cette 
carte. 



La transmission 
serie 

Cette transmission ndecssite une 
conversion des donnees, donnees 
existantes sous forme d'octets en 
une s£rie de bits dmis k une 
vitesse precise. Cette conversion, 
au d6part comme h Tarrivee, est 
effectude par un circuit spdcialisc" 
nommd UART ou ACIA. En 
Emission, il suffira de charger 
avec la donnt£e le registre de 
transmission de 1'ACIA, en 
reception de lire l'octet recu dans 
le registre de reception. 

L'AQA se charge d'autre part de 
transferer la donn6e selon un 
format bien precis, nombre de 
bits de donnies, nombre de bits 
d'arrSt, parit^, vitesse. 
II suffit done en theorie d'un seul 
fil (plus la masse 61ectrique) entre 
les deux machines. En pratique, 
pour fonctionncr corrcctcmcnt, 
une liaison serie doit en plus 
assurer un certain nombre de 
contr61es afin d'e"viter la pene de 
donnees au cours du transfen. 
Ces controles, qui constituent le 
"protocole de liaison" (Hand- 
Shake des anglo-saxons), sont 
assunfs par voie 61ectrique (Hard- 
ware Handshake) en utilisant les 
signaux de controle de !' interface 
s^rie, ou par voie purement 
logicielle en utilisant un pro- 
gramme de transmission rcs- 
pectant un protocole particulier. 
Les protocoles existants sont tres 
nombreux. II en existe de simples 
(ENQ/ACK ou D1/D3 appele" 
aussi XON/ XOFF), de 
moyennement 6volues comme 
XMODEM ou de tres flaborfs 
(KERMIT). 

Nous allons d&ailler dans cette 
premiere partie un exemple de 
protocole Hardware, interface 
avec le BIOS CP/M, et, dans la 
deuxieme un protocole logiciel : 
XMODEM. 




Signaux RS232 

Sur le connecteur DB25 d'une 
interface s«5rie, on trouve les 
signaux suivants : 

TXD (Broche2) Sortie 

emission de donnees. 

RXD (Broche3) Enuee 

reception de donnees. 

RTS (Broche4) Sonie 

demande pour 6mettre. 

CTS (Broche 5) Entree 

autorisation d'emettre. 

DSR (Broche6) Entree 
interlocuteur pr£t. 

Masse (broche 7). 

DCD (Brochc8) Entree 
detection de porteuse 
(avec Modem). 

HTR (Broche 20) Sonie prlt. 



Les brochages de ces signaux 
sont en principe standardises. 
Malheureusement, un certain 
nombre de constructeurs 
appiiquent les norrncs avec 
po6sie... 

Remarque : pour les lecieurs inicrcssc*s, 
l'inierface serie CE130T des ordinaieurs 
de poche Sharp serie PC nc 
fonctionncra corrcctcmcnt avec lc 
programme prcscntc* ici qu'en utilisant 
la Broche 11 comme signal DTR au 

lieu de la Broche 20. II faudra done 

prevoir un c8ble. de liaison special 
pendant la durce de la garantie de voire 
interface CE130T puis, easuile, ouvrir 
la boite et strapper directcmcnt sur lc 
circuit imprimd, apres coupurc de la 
piste DTR. Cette operation est tres 
simple a realiser. 



Liaison avec un Modem 

Tout ces signaux sont utilises lors 
d'une liaison avec un Modem, il 
suffit d'utiliser un cable "fil pour 

fir. 
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Liaison locale avee un 
autre calculateur 

En liaison directe locale de deux 
machines, on peut simplifier et 
supprimer le Modem. II est alors 
indispensable d'utiliser un cable 
particulicr appel6 "Eliminateur de 
Modem" atln de croiser deux a 
deux, signaux de donn6es et 
signaux de conirole. 
La carte SSC possede un 
"Jumper Block" k deux positions 
(Terminal et Modem). En thdorie, 
ceci devrait permettre une liaison 
locale avec un c&ble Modem 
normal ; en pratique, le cSblage 
adopte* par Apple et le logiciel de 
la ROM SSC rendent cette option 
inutilisable, car sans conrrolc dc 
transmission. 

11 faudra done laisser ce Jumper 
Block en position Modem, et 
realiserun cable e*liminateur. 

Cable eliminateur 

II est simple a r^aliser, et ne 
consiste qu'a "croiser deux 
lignes" : 

Lignes de donnees : TXD d'une 
machine vers RXD de r autre (et 
inversement). 

Lignes de controle : DTR d'une 
machine vers CTS de l'auire (el 
inversement). 

Gestion de la SSC 

La carte SSC est g6r6e et 
configure a 1'aide d'un certain 
nombre de registres. Ces 
registres soni a des adresses qui 
dependent du slot dans lequel 
cette carte est situ6e. En principe, 
sous CP/M comme sous Pascal, 
cette carte est en Slot 2. Ces 
registres permettent de 
positiormer les parametres de la 
transmission (vitesse, nombre de 
bits, parite), de lire ou e'erire les 
donnees et de lire ou positionner 
les signaux de controles. Pour 
plus de details, se reporter au 
manuel de la carte SSC. 

La carte comporte de plus des 
"switches" qui permettent de 
m6moriser une configuration par 
deTaut et que tout programme de 
transmission peut aller lire. 



Emission 

Pour £mettre, il faut s'assurer que 
le registre de transmission est 
vide (afin d'eviter d'6craser 
l'octet pr£c£demment dmis, ceci 
sunout a basse vitesse), il faut 
en suite s'assurer que le re*cepteur 
est bien pret a recevoir la donnee, 
en lisant le signal CTS, et enfin 
6crire l'octet a envoyer dans le 
registre demission. 

Reception 

Pour recevoir, il faut indiquer a 
l'6metteur que Ton est pret en 
activant le signal DTR, attendre 
que le registre de reception soit 
plein, puis lire l'octet. II est 
ensuite indispensable, avant dc 
retoumer au programme appelant, 
de de*sactiver le signal DTR, afin 
d'e'viter que l'emetteur n'envoie 
un octet pendant que Ton aura le 
dos toume\ C'est cette precaution 
qu*Apple semblc avoir oublide 
dans son logiciel de gestion SSC, 
et qui seule vous permettra, par 
exemple, de renvoyer un fichier 
arrivant d'une autre machine, 
vers une imprimante ou tout 
p6riph6rique lent, ou de stocker 
sur disquc en temps r6el un 
fichier. 

Pour plus de securite\ il est meme 
preTe'rable en lecture de n'activer 
DTR qu'apres avoir vdrifie* 
qu'aucune donnde n'^tait 
pr^sentc, afin de solliciter 
l'emetteur. 

Programme 
SETSSC 

Ce programme, sous la forme 
d'une commande CP/M 
(SETSSC .COM) a une double 
fonction. II permet tout d'abord 
d'initialiser la carte SSC avec des 
parametres en clair. En effet le 
codage de la liaison en vitesse, 
parite\ etc. n'est pas toujours tres 
parlant si Ton n'a pas le manuel 
de la SSC sous les yeux. Avec 
SETSSC on sp6cifiera 
directement les parametres 
desires. 

Ensuite, ce programme implanie 
dans le BIOS CP/M deux petites 
routines d'emission et de 
rdception d'un octet, selon le 



protocole de'taille' plus haut. Ces 
deux routines sont rendues 
accessibles a CP/M a travers les 
unitis logiques UR2: et UP2: 
qui correspondent en standard & 
la lecture et l'fcriture d'un 
perforateur de ruban, pgriphd- 
rique qui commence a se rareTier, 
surtout chez 1'amateur ! 

II n'y a besoin de rien d'autre, 
maintenant vous ferez vos 
transferts en utilisant ce bon 
vieux PIP qui est en fait un 
logiciel de transfert tres pratique 
grace a ses nombrcuscs options 
(tabulations, formatage, numdro- 
tations etc.) 

Utilisation 

Voire carte SSC peut etre 
configured par ddfaut (switches) 
selon vos parametres de 
transmission les plus frequents. 

L'appel du programme se fait au 
niveau 'commande' de CP/M 
par : 

SETSSC <Parl>, <Par2>,.„ 

Les parametres sont optionnels et 
sont au nombre de quatre au 
maximum, sdpanfs par des 
virgules (un espace entre 
SETSSC et les parametres est 
ne'eessaire). Chaque parametre est 
constitue* d'une lettre suivie de 
caracteres. On aura les 
commandes suivantes : 

B xxxx nfglage de la vitesse ou 
xxxx indique la vitesse en clair 
(et en bauds !). xxxx aura les 
valeurs 50 a 19200. 

Dx nombre de bits de donndes. 
x a les valeurs 5 a 8. 

S x nombre de bits d'arret. x 
vaut 1 ou 2. 

Px choix de la parit6. x indique 
la parite\ selon les denomina- 
tions franchises ou anglaises au 
choix. x vaudra : 

ou S parite* (Space) 

1 ou M parite* 1 (Mark) 

P ou E parite" paire (Even) 
I ou O parity impaire (Odd) 
N pas de parit6 

La commande SETSSC sans 
parametres initialise la cane avec 
les valeurs par d^fauts des 
switches. 
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SETSSC avec des parametres 
configure la carte selon Ics 
paramfctres indiqufis. Lcs 
parametres non presents dans la 
lignc de commande sont laiss£s 
inchang£s, ou sont lus sur les 
switches dans le cas dun premier 
appel a SETSSC apres un boot. 

Par exemple : 

SETSSC configure avec les 

Switches. 
SETSSC B2400 passe la 

vitesse & 2400 bauds, le reste 

est inchanse. 
SETSSC D8,PN,S1 8 bits de 

donnees, 1 stop, pas de paxitc, 

vitesse inchang6e. 
etc. 

Toute commande incorrecte 
ggnere un message d'erreur et ne 
modifie rien sur la carte. 
La configuration reste valide 
jusqu'au prochain demarrage a 
froid de CP/M. 

La transmission de vos donnees 
se fera ensuile avec PIP. Par 
exemple : 

Envoi du fichier TOTO.TXT vers 
la ligne s6rie : 

PIP UP2 : =TOTO . TXT 

Reception d'un fichier et 
impression avec tabulation et 
numerotation : 

PIP LST: =UR2: [ T8N} 

etc. 

Remarque 1 

Veillez a utiliser les unites 
logiques UP2: et UR2: plutfit que 
les unites PUN: et RDR: Ces 
deux dernieres unitds gerent 
6galement le perforateur et le 
lecteur de ruban, mais r6aliscnt cn 
plus une "mise en page" du 
fichier transfer^. Par exemple, 
avant Emission du premier octet 
du fichier, CP/M envoie sur 
PUN: une s£rie de 80 codes 
"Nul" Ccst classique sur un 
ruban perform, mais un certain 
oombre d'ordinateurs r£cepteurs 
risquent de ne pas apprdcier la 
manceuvre. 

Remarque 2 

L'utilisation de PIP implique 
l'utilisation de fichiers de type 
texte, terminus par Ctrl-Z, que 



PIP ddtecte comme fin de 
transmission. II peut arriver que 
l'ordinateur qui vous envoie un 
fichier arrete son Emission sans 
envoyer de Ctrl-Z (PIP le fait 
Men, pourquoi pas les autres ?). 
En ce cas, vous pouvez frapper 
un Ctrt-Z au clavier. La routine 
de lecture de la carte SSC, dans 
sa boucle d'attente, surveille 
aussi le clavier et retournera & 
CP/M tout caractere frappe* 
comme provenant de la ligne 
Serie. 

Ceci permet de reprendre la main 
correctement et fermer le fichier 
recu. 

(Ce probleme n'existe pas avec 
les commandes de transmission 
des PC Sharp qui dmettent 
effectivement le code fin de 
fichier.) 

En Emission, PIP arrete le 
transfert sur detection de Ctrl-Z, 
sans envoyer celui ci. Ceci peul 
eVentuellement laisser 1'ordina- 
teur rgcepteur bloque*. Deux 
solutions : 

• si l'ordinateur reccpteur pcrmct 
une reprise de main facile, pas de 
probleme ; 

• sinon, il faut disposer d'un 
moyen d'envoyer le Ctrl-Z sur la 
ligne serie. En cas de besoin 
done, il faudra dSvclopper 
(n'ayons pas peur des mots) le 
logiciel suivant : 

Charger DDT. Assembler les 
instructions suivantes : 
A1Q0 

LHLD F390 

MVJ. C, 1A 

PCHL 

puis Ctrl-C pour revenir & CP/M 
et SAVE 1 CONTROLZ.COM. 



r6scrv£e a des transmissions 
fll aires locales. 



Fonctionnement 

Le programme source de 
SETSSC est document^ et ne 
pose pas de probleme particulier. 
La majeure partie du code est le 
traitement de la ligne de 
commande. Des tables ont 6l6 
cr66es pour transformer les 
parametres specifics en valeurs de 
configuration des registres dc 
l'ACIA. A noter que pour plus de 
commodity la vitesse de 
transmission a e*te* cod6e d' ASCII 
en DCB plutdt qu'en binaire. 
Le reste du code consiste a 
implantcr lcs deux routines de 
lecture et ecriture dans le BIOS 
dans la zone m^moire allouee aux 
Patches Slot 2 ( OF280H ). D faut 
ensuite entrer les adresses de ces 
routines dans la table des 
IOvecteurs aux emplacements 
r^serytfs aux unites logiques 
UP2: etUR2: 

Derniere precaution, lors du 
Coldstart, CP/M effectue une 
recherche des canes prdsentes 
dans 1' Apple et crde une table 
avec les types de ces canes. Lors 
de chaquc ddmarrage a chaud, 
(done en particulier apres chaque 
execution de PIP) toutes les 
canes sont r^initialisees. Ceci est 
tres gSnant car on perdrait ainsi la 
configuration deTinie par 
SETSSC pour revenir aux 
valeurs par dfifauL II faut done 
"tuer" la carte SSC pour CP/M, 
en mettant un code (Slot vide), 
pour que le Warmboot ne modifie 
rien. 



La commande CONTROLZ vous 
permettra done de libtSrer 
eVentuellement un ordinateur 
rdcepreur en envoyant le code 
Ctrl-Z sur la ligne. 

Remarque 3 

La lecture/ecriture de la cane serie 
se fait de facon tres simplified. II 
n'y a en particulier pas de 
controle d'erreur de paritd, de 
cadrage ou d'embouteillage. Ceci 
n'est pas tres genant car en 
pratique, cette utilisation est 



Dans la deuxieme partie de cet 
article, nous 6tudierons un 
protocole simple mais deja tres 
puissant. Deux programmes, 
sous forme de commande CP/M 
seront propos6s. Tun dmettant, 
l'autre recevant. Ces deux 
programmes sauront s'attendre si 
n6cessaire, controler la r6ception 
des informations recues, 
r66mettre des informations mal 
transmises... 

3 
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Source 'SETSSC.SOURCE' 



TITLE SETSSC 



CONFIGURATION OK LA Super Serial Card 
suus CP/M 2.23 

SETSSC Bxxxx, Dx, Sx, Px 



Baa ax 

DX 

Sx 

Px 



Vitesse en Bauds 
Data bits, x-b a 8 
Stop b its, x«/ on 2 



Pariie, x- 



'0 ou S 
1 ou M 
E ou P 

o ou I 

N 



Space 
Mark 
Pa ire 

Impaire 

Non 



SETSSC 
JF'R 



BDOS EQU 
BUFFER FW 



contigur* aver? les switches 
190C 



5 

8QH 



/Entree BDOS 

jBuffer d'entr4e 



Registres ACTA 



NSLOT EOU QEOAQti jCarin en slot 2 

DIPSH1 EQU NSLOT il /Switches 1 

DIPSH2 EQU NSLOT+2 J Switches 1 

TDRSG EQU NSLOT+8 .-Reglstre transmission 

RDREG EQU NSLOT+9 /Reqiatre reception 

STATUS EQU NSL0T*9 /Registro d'etat 

COMMAND equ NSLOT+OAJi ;Reglszre de commande 

CONTROL EQU NSLOT+QBH ,-Registre de controlc 

Adresses clavier 

KBD EQU 0EO00H 

KBDSTR EQU 0EU1 OH 



; Ad i esses 

l 

PAD* 
IOVEC 
UR2 
UPS 
CAHUS 



bio: 



EQU 
EQU 
EQU 
EQU 

EQU 



0F26QH 

OF380H 

OCH 

10H 

0F3BBH 

.PHASE 

PAGE 

TJ> 

LD 

INC 

OR 

JR 

CALL 
JP 



;PaiLties pour slot 2 
/Table vecteura 10 
,-OIIset Usar-Reader 2 
•offset User-Punch 2 
/Table cartes peripheziquco 
103H 

IX. BUFFER 
A, (IX*0) 
IX 

k ;des vatatnetces ? 

NZ.MODIF 

LEC SWI ;z6cup. contig. sw 
CON FIG ;con fig. AC I A et 
re tour CCP 



/ Analyse de la lignc de commando 

t 

MOO IF : 




Vous avez la disquette Pom's 

Les fichiers sont en format DOS 3.3. Vous 
les transfererez sur votre disquette CP/M 
a Vaide de "Universal File Conversion* ou 
APDOS. 
Vous n'ayez pas la disquette 

Saisissez le dump avec l'utilitaire DDT o 
p-artir de Vadresse 0100. 

Dans les deux cas 

Utilises la commande suivante pour confi- 
gurer la carte ; 
SETSSC^xxxx.Dx.Sx^Px 
B = vitesse en bauds 50 a 1 9200 

= nombre de bits de donnees 5 a 8 

S ■ nombre de bits de stop 1 ou 2 

P = parite 1 P INSMEO (voir texte) 

Exemples 

SETSSC 89600 ,PM 
SETSSC SI, B300 
SETSSC D8 

SETSSC (sans pararnetre = utilisation de 
U positions des switches) 



MOD IF 1 : 
LECTURE: 



CALL 


LEC_AC1A / rer.np 


con fig AC I A 


LD 


A, (IX*0) iLlgne 


de commande 


INC 


IX 




OR 


A iligne vide ? 


JP 


Z, CONFIG 




CP 


• » 




JP 


Z. LECTURE 




AND 


0DFH /majusc 


ou mi misc. 


CP 


•H' 




JP 


Z. LEC_BAUD 




CP 


'D' 




JP 


2, LEC_DATA 




CP 


•s • 




JP 


I. LEC_5T0P 




CP 


'P ' 




JP 


Z, LEC PARI 





; Sortie mux erreur de commande 

i — ■ 

ERR CMD: 



ERR MSC 



LD 


HL, CARDS' 2 




LD 


A, (HL) 




OR 


A :iere 


fa Is ? 


JR 


7.,MODIFl :Non 




CALL 


LEC_SW1 ,'Oui, 


recup. des switches 


JR 


LECTURE 





LD OF-, F.RR_MSG 

LD C,9 

JP BDOS /message et retour CCP 

EQU $ 

DB 7, 1.1, 10 

ASC 'Fichtre, la commande ! ' 

DB 13,10, •$' 



Cnmmandf* suivante fretour des tuulines LEC_xxjt J 
SUITE: 



LD 
INC 
OR 
JP 
CP 
JR 



A, (IX*0) 
IX 
A 

Z, CONFIG 
• 

NZ.ERR CMD 
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JH 

PACE 



LECTURE 



Routine de recherche d'une commands 



CHERCHE: LD 
TNC 
PUSH 
CPDR 
POP 
INC 
ADD 
LD 
RET 
POP 
JR 

Lecture Data bits 



LEC DATA 



DATA T 



EQU 

LD 

LD 

CALL 

LD 
JP 

OR 

EQU 

DB 



LuvLutv SLufj bits 



LEC STOP 



'•TOP T 



EQU 

LD 

LD 

CALL 

U) 

JP 

DB 

EQU 

DB 



Lecture Parite 



LEC PARI 



PART T 



EQU 

LD 

LD 

CALL 

LD 

JP 

DB 

DB 

DB 

EQU 

DB 

DD 

DB 



A, (IX+O) 
IX 

HZ 

HL 
HL 

h'L, BC 
A, (HL) 
Z 

HL 

ERR CMD 



HL,DATA_T 
BC.4 
CHEHCHK 
(DATA), A 
SUITE 

'5', '6', 'T, 
5-1 

SOH, 40H,20H,0 



HI.,STQP_T 
BC,2 
CHERCHE 
(STOP) , A 
SUITE 

•2 '2* 
$-1 
0, BOH 



HL,PARI__T 
BC,16 
CHERCHti 
(PARI), A 
SUITE 

•S\ 'S', '0', »«•, •«% 

'E\ *« \ 'P'/ 'p', '0', 'o' 
'I', 'i\ 'N', •/)• 
5-1 

OEOH, OEOH, OEOH, OAOH, OAOH, OAOti 

con, cou, con, eon, son, 20n 

20H, 20H, 0,0 



RET 

INC 

AND 

HLU 

INC 

RLD 

DEC 

OR 

JR 

LD 

CP 

RET 

POP 
JP 

Lecture do la vitossi 



LEC BAUD: 



LEC Bl : 



PAS BON: 



TRG'JVE i 



CALL 
LD 

LD 

LD 
DEC 

LD 

CP 
DEC 

JR 

LD 

CP 

JR 

n.mz 
JP 

LD 
XQR 
SBC 
LD 

ERA 

LD 

CP 

JP 

LD 

CP 

JP 

JP 



DM 
ON 
DN 
EQU 
PAGE 

; Lecture cfea switches 
LEC SHI: 



BAUD T 



Z 

IX 
OFH 

HL 

HL 
A 

Z, DIGIT 
(CHIF5),A 

I 
Z 

HL 

ERR CMD 



CONV_BD 

ir t accu 

HL, BAUD_ T 

B, 15 

HL 

A, (HL) 

(ir+ii 

HL 

N'l, PAS^BON 
A, (HL) 

IZYiO) 

Z, TROUVE 
IJTC_R1 

EPJt_CMD 

DE, BAUD_ T-32 
A 

HL, DE 
A.L 

(BAUD), A 

OFH ; 19200 bauds ? 

NZ, SUITE 
A, (CHIF5) 
1 

Z.SUTTE 
NZ, ERR_CMD 

50H, 75H, 11 OH, 1 35H, 1 50H, 300H 
600H, 120QH.18OQH, 24 00H, 3600H 
4300H, 1200H, 9600H, 9200H 
S 



Conversion vizesse en DCB 



ACCU: 
CONV BDi 



DIC IT: 



DU 

LD 

XOR 

LD 

DEC 

LD 

LD 
OR 
RET 
CP 



HL r ACCUtl 
A 

(HL) , A 
HL 

(HL) , A 

A, fIX*0) 

A 

Z 







XOR 


A 


LD 


HL,DIPSH1 


RLD 




U3 


(BAUD), A 


INC 


HL 


LD 


A, (BL) 


LD 


B,A 


AND 


ROH 


LD 


(STOP). A 


LD 


A, 4 OH 


AND 


B 


SRL 


A 


LD 


(DATA), A 


LD 


A,10H 


AND 


H 


JR 


Z. LEC_S»I 


LD 


A,30H 


AND 


B 


RLCA 
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LEt: su I 1 : 



LD 
RET 



(PARI), A 



• Jj*rtnri* rip 1 'ACIA 




LEC AC1A: LD 


HL, COMMAND 


LD 


A, (HLJ 


AND 


OEOH 


LD 


(PARI), A 


INC 


HL 


ZD 


B, (HLJ 


LD 


A, 0F1I 


AND 


B 


w 


(BAUD) , A 


LD 


A, 60H 


AND 


D 


LD 


(DATA), A 


LD 


A, HtiH 


AND 


B 


LD 


(STOP), A 


RET 




; StockaQC dea parametria 


BAUD : DS 


1 


DATA: D5 


i 


STOP: DS 


i 


VAR1 : 0$ 


i 


CHIF5: D5 


i 


f Configuration de 1'ACIA 


CONFIC: LD 


HL, COMMAND 


LD 


A, (PAKl) 


OR 


8 .-active 


LD 


(HL),A 


INC 


HL 


LD 


A. (BAUD) 


OR 


I on 


LD 


B, A 


ID 


A, (DATA) 


OR 


D 


LD 


B, A 


LD 


A, (STOP) 


OR 


B 


LD 


(HL) , A 


LD 


A, (RDFEG) 


f Misc en place dca Dri 


vers dans le BIOS 



LD HL. PUNCH 

LD OB, PADR 

LD BC, FIN-PUNCH 

1.DIR /Transput L du toc/e 

LD HL, PADR /Adreasa Punch 

LD (I0VEC+UP2) ,HL 

LD HL, PADR+RRADFR-PVNCH 

LD (IOVECtURZ) ,HL 

LD HL,CARDS*2 /Slot 2 

XOR A 

LD (HL).A .On "cue" la carte 



Message Ok eC retour CCP 



LD 
LD 
IP 



DE, OKMSG 
C, 9 

H/iUS 



OKMSG: 



DD 13,10 
ASC 'SSC Ok...' 

DB 13, 10, '5 ' 

PAGE 

t Drivers d'entree sortie scrlc 



Dump 


hexadecimal de 


SETSSC.COM 


0100 


co 


00 


00 


DL 


21 


s; 


00 


.... 


7E 


00 


OD 


23 


B7 


to 


06 


CD 


0110 


64 


::■ 


C3 


AS 


-V 


21 


BA 


F3 


7E 


87 


28 


:t 


CD 


64 


02 




0120 


03 


CD 


*A 


02 
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PUNCH: 

* TOR: 



W CTS! 



READER. 



S DTK: 



ft RDR: 



RF.ADER1 : 



FIN 



LD 

BIT 
JR 
LD 
BIT 
JR 
LD 
LD 
RET 
LD 
BIT 
JR 
DEC 
LD 
RET 
INC 
SET 
DEC 
BIT 
JR 
LD 
R(,CA 
JR 
SRL 
INC 
RES 
LD 
RET 
DEC 
LD 
INC 
TNC 
RES 
RET 
EOU 
END 



HL, STATUS 

4, (HL) iTDR vide ? 

2, N [TDH 
HE, Dl PSH? 

0, (HL) j CTS ? 
NE, W_CTS 
HL, TDREG 

(HL),C jAcriture 
HL, STATUS 

3. (HL) ;RDR plein ? 
Z, 5_DTH 

HL 

A r (hi.) ; lecture 

HL 

Q, (HL) /active DIH 
HL 

3, (HL) ;RDR plein ? 
NZ, READER! 
A r (KBD) 

NC, W_ RDR 
A 

HL 

0, (HL) 
(KBDSTR) ,A 

HL 

A, (HL) /lecture 
HL 

HL 

0, (HL) ;doaactive DTR 
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ReciieiIn l(Pom S i 1 2 l 3&4) 

Overlay dynamique 

Visicalc el Applesoft 
Un programme aide-memoire 
Graphique : dc 1TIT 202O A T Apple 
Ixs ad f esses du graphique 
Routine de presentation graphique 
Applications dc graphiqucs 
haute-rtsolution 
Creation dc tahlcs dc formes 

Dcs instructions en une leitre 

Dcs bouclcs a s'arracher les cheveux 
PLE : Program Line Editor 
CRAE : Co-Rcsidcnt Applesoft Editor (B) 
Une incursion dan s les mysteres du DOS A 
InvcrscurDOS 3.2/DOS3.3 

Les dramcs dc I'Append / 

Rcparez votrc Append B 

Reparcz voire Ren umber (B) 

Analyse du contcnu dcs slots B 

Contmlez le neitoyage-mc'moire B 

Fattcs Ic manage dans la mcmoirc (A) 
Banc d'essai net utiliiaires 

de documentation (B) 

Les limiles dcs Iditcurs dc texte / 

Copie d'ecran lextc BA 

Un catalogue g£nc*ral en Pascal 1 p 

Un catalogue general cn Pascal 2 P 

Un catalogue general en Pascal 3 P 

Formaucz vos propammcs (B) 

La lecon de calcul (B) 

Trois secon des pour trier BA 

Charge* vite vos Adders binaires A 

Sprechen Sie DOS ? B 

Changcz voire poigne'e dc jeu A 

S.H.LAM : une routine bicn pratique (B) 

Apprcntissage de I' asscmblcur I A 

Apprentissage de I'asscmbleur2 A 
Dtiplaccmcnt dcs programmes cn 

asscmblcur / 

Notions dc base : les fichiers R 

Un Print Using d'inicrct general B 

Conversion Pascal/Basic/Pascal A 

Communication grSce a r Apple / 

Communiquez avee 1c format DIF B 

Les fichiers EXEC B 

Uncxcmplcdc Hello B 

Personnalisez vos disquettes B 

Un programme dc TRACE selective A 

Un programme dcvineite B 
Les memoirc dc masse 
La carte M/DOS a 1'essai 
Les codes ASCII ipluchis 
Survol de 1' Apple/// 
RobotWar 

Recueil n°2 (Pom'ss^^&R) 

HAIFA : un ampcr intcrpr£teur complct A 

Le clavier magique BA 

Creation graphique cn Pascal P 

Logiciei graphique en Pascal p 

Graphique, quand tu nous liens... R 

Tonue & A 

Graphiqucs ct logiquc A 

Les Quatrc Poms B 

1 lard Copy Scikosha A 

Creation de police de caractcrcs B 

Francisczlc DOS B 

La programmaiion facilitee BA 

Un analyseui dc synlaxe B 

Un programme dc test universe! B 

Un programme de Hello complei A 

Acceldrcz vos programme cn Basic (B) 

Des programmes relogeables A 

Recherche dc cedes binaires BA 

Hrgnnomie des programmes / 




Transfer! d'Applcsoft vers EXEC B 

Creation dc fichiers EXEC B 

Tableaux de laillc diclarcc cn Pascal P 

Dump Pascal p 

Un jtfndraleur A 
Notions dc base : routine 

d'inputgenSrahse BA 

Notions dc base : gesiion dc fichiers B 

Gestion de masques en Basic BA 

Boot PLE+CRAE B 

Un programme de fondu enchalne A 

Lc Hbasic : un basic pasealien BP 

Calculs en formal gestion A 

Calculs a 1 2 chiffres eu Pascal P 

Le loto.c'esi facile BA 

Cryptographic a clef publique P 

Visicalc ei iraitemeni de lextc B 

Lesarcanes du monitcur Apple/// A 

Muniteur eTendu A 

L'Apple//e a I'essai 
Lc tours de Rasic Applesoft 
Base de donnees sur Apple 
Mini-base dedunoees 
PILOT el SUPER-PILOT a I'essai 
Mulliplan a 1'cssai 
Banc d'essai du BASIS 108 
Alio, Questel? 
The Last One a 1'essai 
C.O.R.P. h I'essai 
CX Mulu'gestion a I'essai 
Banc tcsl dc la cralc LEGEND 1 28Ko 

Iji sourisdc Lisa 
FID, MUFFIN el DEMUFHN 

Recueil n°3 (Pom's9,io.n&i2) 

Copie basse resolution d'ecran I IGR A 
Un £diteur graphique HGR B 
Fusion de tables de shapes B 

Fondu cnchainC* graphique A 

Reconstiluez lc ftizzlc BA 

lja Magic de Magicalc / 

£dileur-Composcur dc lextc BA 

Dunnez du caractere a voire imprimantc / 

Supcr-imprcssion de chaincs BA 

Mise en forme de listings B 

Lecture dc fichiers TEXT B 

Saisie Mullipagc en Pascal P 

Gestion de fichiers avee RWTS BA 

Pseudo-opcodes de divers assembleurs (A) 

La Prom P5A disassemble A 

Jongtez avee voire catalogue B 

MATGRAPH, voire routine graphique BA 

Compression d'images HGR BA 

Dcssins avee unc planchc a clous P 

Aide au graphique HGR BA 

Caractircs geants 3 I'imprimanlc B 

Dtfcisionnel graphique a 1'essai / 

Crcez des commandes automaliqucs BA 

Gesiion de compics bancaires B 

Acces direct aux disquettes BA 

Iidilion dcs fichiers Basic B 

Suppression dc fin dc programme BA 

Input ge'ne'ralise' de tableaux BA 

Chargcmcnt aulomatiquc dc 1 1 Integer (A) 

Conversion de Big Mac vers Lisa 2.5 A 

La communication avee 1' Apple / 



CXSydemcil'csad / 
Calendrier perpfiiuel cn Visicalc 

Music / 

Initiation a I'assembleur ( I ) A 

Lc Bavard BA 

Effcis stroboscopies BA 

Unc astucc pour suppiimei les RFMs B 

DesPOKEsagogo / 

Un programme dc menu BA 

Un menu a la cane p 
Comparaison de programmes cn 

hingage machine A 
Comparaison de programmes Applesoft BA 

I In "Type-ahead " en Applesoft B A 

Trace dc courbes en convcrsationncl BA 
L'obtenlion de rexlremum absolu 

des fonctions a plusteurs vanables B 

Tri rapide cn asscmblcur A 

Mac Article / 

Gutenberg I I'essai / 

Les logicicls de traitement de lextc / 

Magic Window & I'essai / 

Initiation a rassemb!eur{2) A 

Disque virtucl IfiKo A 

Chans Unlimited a I'essai / 

Lc Calcul atcur E nticr A 

Exp(ncSqr( 1 63)) cst-il cntier ? / 

Patch du DOS 3.3 B 

Des tableaux dc dimension variable A 

& ONERR GOTO A 
Programme assembleur d la fin d'un 

programme Basic B 

Nnmbres flottants en langage machine BA 

PEEKsctPOKEscn Pascal P 

Imprimcz les codes ESC de voire PLE B 

Trace" rapide dc ccrclcs A 

Un Iditeurde shapes BA 
Des trues pour ApplcWriicr 11+ ci//c 
Adaplez Apple VYnier lift !' Apple He 
Pom's a vu MEM/TERM 
Analyse dc MagicMailer 

La famille Apple // 

L'Applc/Vcesl ne* 

Pom's n°13 

Initiation a rassemblcur (3) A 
Home, Sweet Home A 
Un jeu d'adresse en Pascal : 
Ordralphabelix P 

PmDOS a I'essai / 

La compaiibililfi dc I' Apple //c / 

Analyse de la VTOC B 

Bloc-Notes BA 

Impressions des variables A 

Documentation de tables dc shapes B 

Reduction d'images HGR A 

PEEKs a gogo 

Le Basicium 

Le lecleur Micro expansion 1 mega 
BugByleril I'essai 
Pom's a vu LIGHT I 
ThinkTank A I'essai 
Les nouvelles du Maciniosh 

Pom's n°14 

Initiation a rassemblcur (4) 
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Procedure & A 

Disquc virtue! 64Ko A 

Lccture/ecnture rapide de tableaux B 

Input ge'ntfralise' miniaiurc B 

Ampcr-intcrprttcur ICARE BA 

Lcs essais du Macintosh / 

« De MacWrite a AppkWriter lie B 

4 Les wkens du Basic Microsoft (B) 

Gc siion dc masques amfiltorcc B A 

Leve-ioicibrille ! / 

217 fichiers par disquctte B 
Converions minusuiles/MAJUSClJl.FS A 

Un catalogue gfineral BA 

Koala Pad A I'cssai / 

Appleworks aTessai / 

Visicalc Advanced Version f 

Jane, I' Apple // sauce Macintosh / 

Pom's n°15 

Initiation a 1'asscmbleur {5) A 

MobbyDisk A 

Disk Check-up A 

Flcuvcs dc Prance D 

HPGRAPH P 

Ecriturc cn page hautrc resolution BA 

MouscPaint / 
Lcs caractcrcs programmablcs 

sur imprimanics Apple / 
Cc slion de fichiers par Rwts el DOS 3.3 BA 

4 Les routines en ROM du Macintosh (ft) 

4 Un Idiltur dc formes ct dc curscurs BA 

Omnis2a I'cssai / 

Pom's n°16 

Initiation a 1'asscmbleur (6) A 

Pot-pourri ProDOS / 

Gcrcr la date cn ProDOS BA 

Signature A 

Votre Epson cn mode proportionncl BA 

Acces direct aux disquetics B 

L'ApplccnmuIli(5chc BA 
4 Personnalisez vos 

disquettes Macintosh B 

« Call : un exemple a" application BA 

4 MacPaint alt Basic B 

4 Appel des routines en ROM A 

Entree analogiquc amcliorcc A 

Un ddsassembleur en Basic el WPL A 

Lcs codes ASCII du//e B 

STARTUP et saisie de date en Pascal P 

PLE+CRAE+APA BA 
Conversion minuscules/MAJUSCULES BA 

CALLs igogo (B) 

Pom's n°17 

Initiation a l'assenibleur (7) A 

Transtcrt rapide de tableaux BA 

Les pointeurs en Pascal UCSD P 

Animations graphiques BA 
Visualisation d'une distribution notmalc 3 

Copie d'ecran sur imprimanle EPSON A 

4 Catalogue sur imprimanle BA 

« BSAVE el BLUAD en Basic BA 

Switch video pour carte 80 colonnes i 



Mini-6diteur Basic 
Transformez voire lit cn 11+ 
Conversion chiffres-leitrcs 

Pom's n°18 

Disqudle mixlc DOS/PmDOS 

Saisie de variable pat c*cran 

Lc porte parole 

fieslinn de fenfires 

Graphiques alcatoires 

4 Recuperet les icunes du systerne 

4 Modification des informations 

pour It Finder 

4 Us curscurs du systerne 

Micio- journal 

Les pirates ont la parole... 

Hard-Copy dc la page 11GR elendue 

Les pointeurs, suite... 

Rcndcz !c DOS transparent 

Recherche dans un tableau 
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Un analyscur de syntaxc 
Un catalogue mulu-scd 
Unc mcmoire tampon d'Ccran 
Disquctics mixtcs DOS/Pascal 
Mousecai 

« Lucy in the Sky with Diamonds 
4 forange accesso 'tre 

4 Fermez les fenetres 
4 Ou est la souris 

4 Le systerne dc devcloppcmcni 6HUO0 
La mcihode PERT 

Hard-copy HGR sur Image WrUcr 

L'inlclligence artificiellc 
Relrouvcr vos programmes perdus 
Cilalion de caracteres 

Pom's n°20 

DOS ou ProDOS a la carte 
Manipulation de catalogue 
Copie d'ficran sur sileniype 

Sualrc fonctions pour lc Basic 
Des messages en bolte 
4 Gestion de comptes bancaircs 

Dccalages... 

Utilisation dc la carte langage 

Pom's n°21 

Conversion Pascal/DOS 
Cdi graph 

Courtier auiomaiise" en WPL 

RWTSdcsassemblee 

D£crypicur 

4 Library ; un motif de satisfaction 

4 Une corbettte dans la 4 

4 Fenetres de saisie 

La 36emc piste 

Un compatible incompatible ? 

Defilement graphique 

Calculdc n 



BA 
A 
B 



BA 
RA 

/ 

BA 
BA 
BA 

BA 
BA 

I 
I 

BA 
P 
B 

BA 



A 
B 
A 
BA 
A 
A 
A 
A 
A 

WJ 

B 
A 

/ 

(B) 
BA 



A 
B 
BA 
A 
A 
B 
A 
A 



Pom's n°22 

Composition de n° de telephone BA 
Adaptation a ProDOS de routines 

assemhleur A 

Compacicur de programmes Basic A 

Cnpied'ecranflR A 

De la lormule a la courbc B 

'Slaitup' Basic sous ProDOS B 

Des litre cn Basic A 

4 Jeu de mats B 

4 Transfert II — > Mac B 

4 IhperpamtlHipiimieiS et fractaux B 

4 MacAstuccs ! 

Mini-Cdiieur Basic A 

Six Uttrcs B 

Des bugs sous ProDOS / 

Print Using A 

Pom's n°23 

Lc Turbo Pascal P 

Un romposeur sur le //c B 

GENUTILE P 

Formaieur dc listings Basic A 

Navcltc A 

Un "DCcnincher" A 

UnDesassembieur6iC<J2 A 

4 Jeu de la Vie A 

4 Routine de sa'tsie en Basic B 

4 MacAstuccs I 

4 Impots sur Multiplan I 

Impots sur Multiplan / 

SoftCopic A 

Relourdans lc Basic A 

Halle aux Scrolls A 

Patches au DOS 3.3 A 

Pom's n°24 

Un disquc virtucl sous CP/M A 

THGR sur DMP ci [nrageWrilci RA 

EXEC SAVE B 

Printer P 

Dalhcur A 

TOKRNisalinn deschafnes BA 

4 PostScript I 

4 Un nirnftoseuf UUphonique sur Mac B 

4 Le Macintosh et le Presse Paplers A 

4 Le Bundle et le Finder A 

Analyse muliicritcre B 

Hard-Copy sur GP500A BA 

Le kit 65C02 / 

Snake A 

Pom's n°25 

Temps anglais B 

£dileurde blocs ProDOS A 

Mi mini Janus A 

Reset & ProDOS A 

Compdisk A 

Formatcur ProDOS A 

4Adlit(eriim A 

4 Ascenceurs en Basic B 

4 MacAstures I 

i \iFinder A 

Tri de chaines BA 

Diskll el /It I 

Courbcs f racial es P 

Hypcr-cspacc B 



A=Assemblcur 

B=Basic 

P-Pascal 

(B/A)=rclalif au basic ou a 1'asscmbleur 
■ -relatif au Macintosh 
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irT de acehins 

Jean-Luc Bazanegue 



Le langage Basic, meme aussi eVolue* 
que 1'cst eclui dc Microsoft^ pour lc 
Macintosh, ne permet pas de tout faire 
(du moins si Ton veut conserver des 
temps d'exdeution raisonnablcs). Lc tri 
de chaines de caracteres est une de ces 
operations souvent indispensables, mais 
qu'il vaut mieux confier a un langage 
certes primaire (mais 6! combien 
efficace !) : l'assembleur, quiite a 
appclcr la routine air. si Icrite depuis un 
programme Basic ; e'est l'objet de cet 
article. 



Mode d'emploi 

Vous pouvez fort bien avoir besoin 
d'une routine de tri pour vos 
programmes Basic, sans pour autant 
ressentir le besoin de savoir comment 
elle fonctionne ; c'esl pourquoi nous 
passons dircctcmcnt au mode d'emploi, 
le Lecteur intfiressS trouvera les details 
techniques plus loin. 

Deux me*thodes existent pour 
I'installation de routines en assembleur 
dans un programme Basic (voir le 
numero 2 1 de Pom's): 

• routines sous la forme d'une 
'Librairie' ind^pendante du 
programme Basic ; 

• routines installdcs directement 
dans un tableau de variables 
entieres et faisant partie 
integrante du programme. 

Comme il y a quelques differences quant 
a ['utilisation des deux methodes, nous 
vous proposons un mode d'emploi en 
deux parties, la premiere concernam la 

Version 'Library' 

Avant toute chose, il convicnt de 
signaler que le tri effectue* par la routine 
pourrait etre qualifi£ de 'tri indirect' 
puisqu'il est effectue" sur un tableau de 
variables auxiliaire, a la maniere de la 
routine £criie par Bernard Lambillon 
pour 1'Apple //» et publi£e dans le 
nume'ro 25 de Pom's. 

Les chaines a trier doivent se trouver 
dans un tableau de variables 
(alphanume'riques, bien entendu) a unc 
dimension (ChatneS(n) par exemple). 
Parallelemem, on devra avoir un tableau 
de variables emigres a. unc dimension 
(comme Index%(n)), contenant dans 
chacun de ses e"l£ments le nurneVo de la 
chaine de caracteres contenu par 
Tildrnent correspondant du tableau de 
variables alphanumtfriques (ouf!). Ce 



numdro sera cumpris eutre et le 
nombrc dc chaines moins un. 
Rassurez-vous, ceci est beaucoup plus 
facile a faire qu'k dire : 

On suppose un tableau de variables 
alphanumtfriques baptisd 'ChaineS', et 
constituc" de 20 616ments (soit a 19 
avec, par deTaut, 'Option Base 0'). 
Parallelemem, on a un tableau 
'lndex%\ aussi de 20 elements ; pour 
'initialiser' ce dernier afin qu'il 
contienne les numcYos des chaines de 
caracteres, il suffit de faire : 

FOR I%=0 TO 19 
Index* (1%) =1% 
NEXT 

Lorsquc Ton sort de cette boucle (qui 
nous laisse tous pantois tani sa 
complexitf est dtonnantc...), l'clement 
contient 0, l'&ement 1 contient 1... et le 
dernier coiuieul 19. 

On peut maintenant appclcr la routine de 
tri ; en voici la syntaxe, a la maniere du 
manuel du Basic Microsoft : 

TR1UD! premier lUment du tableau de 
variables entieres, premier elgmeni du 
tableau fie. variulrles alplui/iuiruirujues 
I jiombre de chaines d trier j 

Le troisieme argument, facultaiif, 
correspond au nombre de chaines a. trier 
(toujours en partant de la premiere). 11 
doit £tre un entier (£32767) et peut eire 
passtf a la routine de maniere imm6diatc 
('20'), sous la forme d'une expression 
('Nombre%-10') ou d'une variable 
cnticre ('Nombrc%'). Si cct argument 
est omis, loutes les chaines sont triees. 
On puurrait done avoir dans un 
programme un des appels Suivants : 

TriLib! Indexl(O) , ChaineS (0) , 20 
TrlLlb! InriPX%<0),ChaineS(0), 
Nombre%-10 

TriLib! Index* (0) , ChaineS (0) , 

Nnmbre % 
TriLib! Index% (0) , ChaineS (0) 

Au rctour de la routine de tri, le tableau 
conienant les chaines n'est pas modifid ; 
on trouve 1'ordre des chaines dans le 
tableau dc variables entieres. Ainsi, pour 
faire apparaitre a 1'ecran le resultat du 
tri, un peut employer u ne boucle comme 
celle-ci : 

FOR I*-0 TO 19 

PRINT Cha ineS (Index* (IS)) 

NEXT 

Tout ceci est mis en Evidence par le 
programme de demonstration 
'TriLib X>emo\ qui effectue le tri de 100 
chaines de 200 caracteres placets dans 
un fichier a acces relau'f. 



Protections 

Afin d'evtter, autant que possible, les 
■plantages' dus a des passages de 
paramdtrcs incorrects, la routine en 
assembleur effectue quelques tests et, si 
un problemc est rencontre\ provoquc 
l'atf ichage du message "Erreur de 
syntaxe" (ou "Syntax error", selon la 
version du Basic). Ceci apparait dans les 
cas suivants : 

• le premier argument ne correspond 
pas a un tableau de variables entieres ; 

• le tableau a plus d'une dimension ; 

• le second argument ne correspond pas 
u un tableau de variables 
alphanume'riques; 

• le troisieme argument n'est pas un 
entier. 

Remarques : sans rcprendrc ce qui a 
iti dtt dans le nume'ro 21 de Pom's, il 
faux rappeler que la 'Library' doit St 
tmuver de preference sur la meme 
dbqucttc que le Basic et, sur un Mac 
Plus, au niveau du HFS De plux, il 
est indispensable d'initialiscr la librairie 
avant le premier appel de la routine. 
Pour celle. qui imus occupe aujourd'hui. 
ilf aid faire: 

LIBRARY "TriLib. Rscr" 



Version 

'Tableau de variables' 

Le fonciionnemeni de cette version, en 
ce qui conccrnc lc tri, ctant strictement 
identique, nous nous contenterons de 
citer ici les differences avec la version 
'Library'. 

Mises a part les petites manipulations 
lides a ccttc methode et 6voqufies 
maintes fois dans des numeros 
precedents de Pom's (installation de la 
routine dans un tableau de variables, 
affectation de la variable du 'CALL* 
avec VARPTR...), il convicnt de 
signaler deux diffdrences importantes. 
La premiere se rapporte a la syntaxe ; le 
premier argument doil ici etre 1'adresse 
du premier dle'ment du tableau de 
variables entieres (et non plus leldment 
lui-meme), soil : 

VARPTR { Index% (0) > 

De meme, le second argument doit etre 
1'adresse du premier 6I£ment du tableau 
de variables alphanume'riques : 

VARPTR<ChaineS (0) ) 

Enfin, la presence du troisieme 
argument devicnt indispensable (voir les 
problemes de ddcalages dans la pile, 
numero 16 de Pom's). 
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L'appel de la routine avec ceue methode 
doit ressernbler a : 

k ! =VXRPTR (Routine* (0 ) ) 
A! VARPTR(Index% (0) ) , 

VARPTR (Chains? (Q) ) , Nombre* 

La scconde difference porte sur les 
protections : il n'y en a pas ! Ceci 
s'avere ne pas £tre tres genant si I on 
prcnd quclqucs precautions lors dc la 
mise au point du programme. Apres, 
protections ou pas, le programme 
fonctionncra dc la meme facon. 

Avani dc passer a un autre point, nous 
aimcrions ici r£habiliter le principe de 
Installation d'une routine dans un 
tableau de variables, quelque peu 
ddnigre* ces derniers temps. 

Si les 'Libraries' apportent des 
a vantages reconnus, le tableau de 

variables a aussi des points forts : 

• le programme Basic n'a pas lc Til a la 
patte' suppltfmentaire (il a d£ja 
rinterpr^teur) que conslitue la 
'Library* (ce n'est jamais qu'un 
fichier) ; 

• on a pas lc 'temps mort' du au 
chargement du code de la routine (on 
le charge de toute fagon, mais cela 
passe mapergu s'il est charge* en 
meme temps que le programme 
Basic) ; 

• si Ton doit passer a la routine de 
nombreux parametres (ou peu de 
parametres, mais souvent), ce 
passage sc faisant plus dircctemcnt 
par la pile, il est possible de gagner 
un temps appreciable sur l'exeeution 
du programme ; 

• enfin, nos Lecteurs qui ne possedent 
pas lc systeme de d6veloppement 
6S00O et n'ont pas la disquette Mac 
26 ne peuvent pas uliliser la version 
'Library', alors qu'il leur est possible 
d'employer la version 'Tableau' en 
recopiant simplement les "DATA" du 
programme de demonstration, et ce 
meme s'ils disposem seulement de la 
version 1.0 du Basic (la 'Library' 
fonctionne avec les versions 2.0 el 
plus, binaires ou decimates). 

Note : avec la version 1.0, la syntaxe 

d'appcl dc la routine est ; 

A ! "VARPTR (Routine* (0) ) 
CALL A' (VARPTR (Index* (0) ) , 
VARPTR fChdineS (0) J . Numbze*) 



Les 11 miles 

L'utilisation de la routine de tri 
n'apporte pas de contraites particuliere 
pas rapport aux limitcs imposees par le 
Basic Microsoft, Eimites qui seront 
rarement atteintes : il est thtforiauemem 
possible de trier 32768 chaincs de 
32767 caracteres soit beaucoup plus 
d'octets que peut en adresser un 
MC68000, proccsseur qui nest pourtant 
pas ridicule en la matiere. 



En resume*, on peut dire qu'en pratique 
la seule limite est la capacite" me'moire de 
voire Macintosh. 

Methode de Tri 

Nous avons utilise* le tri par insertion, 
qui autorise des traitements d'asscz 
courte dur£e de tableaux de chaines de 
petite ou moyenne taille : un tableau de 
1 00 chaines de 255 caracteres est trie en 
moins de trois secondes, ce qui est, 
compte tcnu du systeme de comparaison 
des chaines mis en ceuvre (voir 
ci-dessous), tout a fait honorable. 

Methode de 
comparaison 

G6n6ralement, les routines de tri 
comparent les chaines de caracteres en 
uiilisant brutalement l'ordre des codes 
ASCII. Ainsi, la chaine "Beaucoup" se 
retrouve placed avant "assez peu" 
puisque le code ASCII de "B" est 65 et 
le celui de "a" est 97. De meme, la 
chaine "ceuvre" sera plactfe apres 
"oxyde". La routine proposec par Apple 
dans un des "Packages' du Macintosh 
utilise un me*canisme plus e*volue* qui 
permet d'obtenir des tris plus logiques. 

Le tri s'effectue selon deux niveaux de 
priorit6 qui sont visualises par le tableau 
joint a cet article. La priori te" absolue est 
donne* au premier ordre (de haut en bas 
sur noire tableau). Four des caracteres 
place's aux memes niveaux (sur la meme 
ligne du tableau), le second ordre est 
employe (de gauche a drone). On 
retrouve un mecanisme Equivalent pour 
les ligatures /£, a, (E et a (il y a des 
moments ou J'on est vraiment content 
d'avoir Taccessoire "ad lilteram"). 

La notion dordre prioritaire peut 
s'appliquer simultane*ment sur plusieurs 
caracteres : la chaine "acidc" sera placcc 
avant la chaine "Adage" car la 
comparaison Ala correspond au second 
niveau dc priority, alors que eld 
concerne le premier niveau. 

11 est evident que cette methode prend 
plus de temps que la comparaison pure 
et simple des codes ASCII, mais elle 
permet de ne pas se soucier de 
l'e'ventuelle presence de minuscules ou 
de caracteres acccntue*s. De plus, et si 
Ton tait abstraction du cote' pratique, ce 
type de comparaison est 
intellectuellcrnent plus satisfaisant que 
l'utilisation seule de l'ordre fixe par le 
code ASCII 

Neanmoins, si vous avez des notions 
d'assembleur et d^sirez acc£lerer le 
traitemcnt, vous pouvez rcmplacer 
l'appel de la routine (clairement xtpixt 
car cncadr£ par deux instructions 
'MOVEM.L') par un branchement sur 
une routine de voire cru. 



Espace Espace 'collant' 



5 Pr&nier ordre ^ 
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& 
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e e* e e e* 
Second ordre. 
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v 
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* Pour le 
premier ordre, 
les caracteres 
'JE % , V, 
'CE' et 'ce' 
sont 
consideres 
comme &iant 
equivalents a 
'A E\ 'a e', 
'O E' et 
'oe'. 
loutefois. 
pour le 
second ordre, 
est 

superieur d 
AE\ 'ce' 
est supSrieur 
a 'ae\ '(F 
es t supSrieur 
d 'O E' et 
est 

supSrieur a 
'o e'. 



Ordres des caracteres 
utilises par la routine 
WMugString pour 
comparer les chaines 
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Programme 
TriLib.Demo' 

Demonstration de la routine 'TriLib' 
(version "Library" do la routine de tri) 

Note : sur un Mac 128Ko, ajoutcr 
'CLEAR,26000, 1024' en dSbut de programme. 



ON ERROR GOTO Erreur 

LIBRARY "TriLib. Rscr"? ' Ouv&rtuiH de la 'Libra 

f rie' contenanL noire Luutine de cri. 
DEFINT A-Z:DXM Index (99) , ChaineS ( 99) , Fcnct res ( 

?) 

' Lg tableau 'Index' contiendra les num6r03 d'or 
dre d99 nhalnes (de 1 au nombze de chalnus) . 

• Le tableau 'Chained' recevra lea 100 chaines d 
e caraeteres. 

' Lg tableau % Fcnctre' n'a pas de rapport avec 1 
a routine do Tri : il s'agit du tableau qui c 
ontiendra le code objpr dp la routine de Ceim 
©cure das fen&t. rns, publi&e dans le numSro 19 
de Pom's. Les trois liqnes suivante3 concern 
ent au3si cettc routine. 

DATA &H42A1, fihA9?4, shZElF, 6h610B, Sh2F07, 6hA91 6, 
Sh60F2,Sh4E75 

FOR 1=0 TO 7 .READ Fenetres (I) zNEXT 

A!-VARPTR (Fenetreo (0) ) ih\ 

' Ouvert ure de deux r&nnt.r&s. Ln fen&tre 1 sera 
utllisee pour les massages, alors qve Is fene 
tre 2, beaucoup plus grande, autoriscra la vi 
oualisotion du debut des chaines de caractere 
s. 

WINDOW 2 (8, 46) - (503, 337) , 3:TEXTSIZS 12:TS 

xrrotrr OzWiNDOW 1, "", (B, 24) - (S03, 41) , 3 :TEX 

TSIZS 1 2 : TEXTFONT 

' On 'const, ruit' 100 chaines de carar.r.eras avec 
des caract eres cholsis tin frit^un aleatoire ent 
rp 'A' et *Z' . Une {vis qu'une chelne contien 
t ses 200 caraeteres, on l'affichc. 
BEEP : PRINT "Constitution aleatoire des chaines 

(100 fois 200 caraeteres) en cours„"; 
WINDOW OUTPUT 2: FOR 1=0 TO 9 9: RANDOMIZE TI 
MER:FOR J=l TO 200zChai ne$ (I) =>Clidlue$ (I) +CR 
R$ (65 + INT (RND*26) ) :NEXT:PRINT "Chaine" Hi 
* ChaineS (I) :NEXT 
' Lcs chaines de caraeteres sont enregf sr.rees no 
n tribes dans un fichier a avces relatif, com 
portant JOO enregistiemvnts de 200 caraeteres 

WINDOW OUTPUT 1 : CLS : BEEP : PRINT "Enregist rem 
ent de3 chaines non triees dans le flchier "C 
haincs"„"; 

OPSN"R n , 1 , "Chaines", 2 00 :PIELD 1,200 A3 TamponS 
FOR 1=0 TO 99-.LSKT TamponS^Ctid ine$ (I) ;PUT 1,1' 

1 ; NEXT: CLOSE 

' Les chaines sont maintenant relues (on conside 
re qu'elles one exe" crepes par tin autre progr 
amine ou snnt. d&ja" existante) et, en m&me temp 
s, on initialise le tableau d'index. 

CLS : BEEP ; PRINT "Lecture en memoire des chaines 

non triees (depuis le fichier) 
OPKN"R", 1, "Chaines", 200 :FIBLD 1,200 AS TamponS 
FOR 1 = TQ 99:GET 1, 1*1 :Cha i nnS (I) =Tampon$ ;Ind 
ex (I) = T : NEXT : CLOSE 



' Appel de la routine de Tri. Comme nous avons 1 
'intention de trier toutes les chaines, il es 
t possible d'omettre le trolsleme argument (n 
ombre de chaines A trier) . 

CLS : BEEP : PRINT "Tri en memoire des 100 chaines 
de caiacLeies*."/ 

TriLib! Index (0) , ChaineS (0) 

' Les chaines sont triees. Rappelons tjue seul le 
contenu du t.ahltiau de variables entieres x In 
dice' izflete le travail effectue par la rout 
ine : il contient l'ordre des chaines. 

CLS : BEEP : PRINT "Atfichage et enreglszrement de 
s chaines tri&es-."; 

WINDOW OUTPUT 2 : CLS : OPEN"R" , 1, "Chaines" , 200 : 
FIELD 1,200 A3 Tampon$:FOR 1=0 TO 99:LSBT 
Tampon$-Chaine$ (Index (I) ) :PUT 1,1*1 -.PRINT Ch 
aincS (Index (I) ) ;NEXT:CLOSE 

' T,e fichier 'Chaines' contient maintenant les 1 

00 chaines de caraeteres dans 1 'ordre. 
WINDOW OUTPUT 1 : CLS : BZEP : PRINT "Tra 1 r.emenr 
termine, appuye2 sur une toutztm pour sortii." 
/ 

WHILE INKS Y$ - " " ; WEND ; END 

' Utllis6 en cas d'errevz (disquette sarurc*, pa 

r exemplo) . 
£zzeur : RESUME Erreur2 

Eiteuz2:NINDOW OUTPUT I : CLS : BEEP : PRINT 

eur ! Impossible de continues.."; 
WHILE INKBYS - " " : WEND : END 



Programme 'Tri.D&mo' 

D^monstrstlon de la routine 'Tri' 
(version "tableau" de la routine de tri) 

Note : sur un Mac 128Ko, ajouter 'CLEAR.26000, 1024' on 
d&but de programme. 

ON ERROR GOTO Zrrcur : DEFINT A-Z.-DIH 1 ndex ( 99) , Chainc S 
,ypnf*rrps (7) t Hniir.lnr* (1 00) : ' tableau 'Routine' re 
cevxa le code objet de la routine de tri. 

DATA Ch42Al, ihA924, £h?ElF, thf, l()t,, £h7FH7, thA91 ft, IhhUry, «ft 
4E75 

' Code objet da la routine tri. 

DATA 6h4ES6, ihFFFZ, 6h206E, khE, ih226E, ihA, &h302E, Sh8, 6h53 

40, th3D40, ihFFFE, ih7201, ih3401, thOW, th3630,th2OOQ, ihr 

Mf« tnJFUJ, £h6168, £h3D5F 
DATA ShFFFG, sh2D5F, ShFFF2, &U3802, 6t,598F, &h3F30, £h40FE, &h 
61 5 6, £h3D5F, ShFFFC, £ h2D5F, £hFFFS, £h48E7, £hF0C0, £hS58F, t 
H2F2E, ihFFF2, th2F2E, ihFFFd, kt\3F2E, thFFF6. ih3F2E. StlFFFC. 
ih3F3C, ihA, shASED, ih 4A5F, sh4CDF, sh30F, Sh6B06 

DATA thJIVJ, th4QO0, £h6Q16, ih31H0, *h40FE, £h40O0 f £hC44 , thP 
, 6U6606, 6h3133 r Sh40FE, 6h6Q04, Sh5544, ShCOBO, ShB26E, thFFF 
E, £h6704, £hS242, Ch608E, £h4ESE, th4E7S, £h4ES6, £h0, £h48Ef, 
ihCOOO, ih302E, Sh8, 6hC0FC, 6h5 r 6h7200 

DATA &h!231 , Sh2, ShElQ9, M231, th3, ih£199, £hl231, &h4, Sh2D 

41, AhA, £h\?M t *hQ f £hF.l49, Khi 231 , £hl , £h3D41 r £h8, £h4CDF, & 
h3,*h4E5E, Sh4E75 

FOR 1-0 TO 7:R£A\D Fonatres (I) :NEXT 

' Installation de la routine de trt dans le tableau de va 

rlebles entieres 'Routine' 
FOR l-tl TO 1I1II:READ Hour 1 HP ( I } : NEXT 

A!-VARPTR(Fenetres(Oj / :A! . WINDOH 2,- n , (8, 46) - (503, 337) , 
3.-TEXTSI ZE 12: TEXTFONT -WINDOW 1, »* (8, 24) ~ (503, 4 
1) , 3;TEXTSIES 12.TXXTFONT 0:BEEP:PRINT "Cons t. Itut 1 
on al6stolre des chaines (100 fois 200 caraeteres) en c 
ours-."; : WINDOW OOTPOT 2:FOR r-0 TO 99 

RANDOMIZE TIMER ; FOR J-l TO 200 :ChaineS (1) -ChaineS (1) •* 
CSR$ (6i*INTIRND*26) ) iNEXTiPRIXT "ChalnO" J+J "! " C 
halneS (I ) : NEXT : HINDOH OOTPOT 1 ; CLS : BEEP : PRINT "En 
registrement des chaines non trldes dans le flchior "Ch 
d I n*?s :OPEtt'R", 1, "Chaines" ,200 
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FIELD 1,200 AS TamponS:roR X-0 TO 99:LSET TamponS*chaI 
/ie$(IJ:POT I, 1*1 : NEXT: CLOSE ; CLS ; BEEP : PRINT 'Lectur 

e en m6molre des chalnes non tri fie s (depuis le flettlerf 
^ m /:OPEN H R",l l m Chatnea m ,200:FIELD 1,200 AS TamponS:r 
OK WJ TO vv:C£T 1, /♦] :Chalne$ ( 1} -TamponS 

Index(H -1 ;NBXT; CLOSE ;ClS: BEEP; PRINT Til en mtmolre 
des 100 chalnes de carmcteros-." ; 

' Appvl <ie la routine de Lil. Attention : aver reite vers 
Ion, toua les arguments sont requis. De plus, oucun tes 
t n'est effsctu6 quant A la valtdttA rt«»« arguments. 

Tri I'VARPTR (Routine (0) ) :Trl! VARPtRt Index (0) \ ,VARPTR{C 
iial/ieS 10)) ,100 



Vt "Afflwhage et enxeglstreme f — ! 
;lnes triAGS-".- -WINDOW OUTPUT 
r-H".l,"ChdlnBS-,ZOC;rXHJ) — 



CLS: BEEP: PRINT 

nt dee cha! 

?:CLS:OPEN"R- , 1 , "Chalnes", 20C;riELD 1.2^ 
00 A0 Tonpor-5 :POR 1-0 TO 99 : 1. SET Tampon CT^- 
S-Chaine5 (Index (IJ ) :PUT l.'+isFRMT Lhal ^ 
neSdr.de/. : ) ;NEXT:CLOSE 

NINDOU OOTPOT 2 t CLS I BEEP : PR1 NT "Traltement terminfi, a 
ppuyez sur une rnunhe pour sortie.'; 

HBILE INKEY$- - ■ : WEND : END 

Erreur: RESCUE Erreur2 

Erreui2:UIND0W OOTPVT 1 . CLS ; BEEP : PRINT "Erreur t Imp 
osalblc dc contlnucr~ m ; :NBILE INKEX$= " " i NEND i END 



Source 'TriLib.Asm' (version 'Librairie') 



Trap 

GetNextUbArg 

BasicError 

lUMagString 

VariableChairiH 

VariableEntiere 

UneDimension 



PackG 



$A9CD 



EOU $2A 
EQU $42 
EQU 10 



EQU 
EQU 
EQU 



; Utilise pour I'appel du 'Package' numero 6. baptise ' International Utilities Package'. II est 
; situe dans lo fichicr 'systcmc' (rosGourcc INTL 6). 

; Cette routine est utilisee pour salslr un parametre passe a La libiair ie depuis te Basic. 

; Routine autorisant I'afficnage de messages d'erreur du Basic. 

; Ce "selecteur' correspond a la routine de comparaison de chalnes situee dans Pack 6. 

; Valeur retournee dans DO par 'GetNextLibArg' pour une variable de type 'chaine'. 
: Valeur retournee dans DO par 'GetNextUbArg* pour une variable de type -en-tier. 
; Pour s'assurer que Jo tableau de variables entieres a Wen uno seule dimension. 



SaJstes et verifications des parametres passes a la routine de tri depuis le programme Basic. Nous devons trouvor, dans I'ordre, la 
premiere variable d'un tableau de variable ontjercs (une seule dimension), la promiero variable d'un tableau de variables 'chalnes' et, enfin 
une variable entiere, ou rien si le troisieme argument (lacultatif) est omis. 



JSR GelNexlbbArg(A5) 
CMPI #VariableEnrjcro,DO 

bn£.s m 



CMPI.B #UneDimension, 3(A2) 
BNE.S <3'3 



MOVE.L 


A2.D6 


jsn 


GetNoxtLibArg(A5) 


CMPI 


ffVariabteChalne.DO 


BNE.S 


@3 


MOVE.L 


A2.D5 


JSR 


GetNextLibArg(A5) 


MOVEA.L D6.A0 


TBT 


DO 


BEQ.S 


@t 


ANDI 


#$7FFF,D0 


CMPI 


tfVariableEnfere.DO 


BNE.S 


@3 


MOVE 


(A2J.D0 


BRA.S 


(5>2 


@1 MOVF 


-2(A0), DO 


BRA.S 


<g>2 



; Satsie du premier parametre. S'il s'agil d'une variable entiere, 'GetNextUbAr' retourne 

; 3 dans los 16 bits dc poids faiWo do DO. Si la valeur eet differento (autre type de 

; variable), on provoque latflchage d'un message d'er reur. Cette comparaison nous permet 

; aussi de detecter une eventuelle variable entiere Temporare' (A%"10. INT(T%(2y3)...) car, 

; dans ce cas. le bit 1 5 de DO est mis a 1 . On obtiendrait done $8003 au lieu de 3. 

; Au retour de la routine 'GetNextUbArg', et pour une variable entiere, te registre 

; d'adresse A2 points sur le conlenu de celts variable. Pour s'assurer que le tableau d© 

; variable entieres est bien a une seule dimension, on verifie le contonu do I'octet situ6 trois 

; octets avant I'adresse poinWe par A2. Get octet contient le nombre de dimensions du 

; tableau (voir I 'article 'Call un exempte d'application', numero 16 de Pom's). 

; On sauvegarde I'adresse du premier Element du tableau de variaWos dans D6. 

; Sateie du second parametre. S'il s'agrt d'une variable 'chaine', 'GetNextUbAr- retourne 

; 2 dans les 16 bits de poids faibte de DO. Si la valeur est differente. on provoque 

; rafftchage d'un messaga d'eneur. 

; Pour une variable 'chalno', 'GctNoxtLibArg* retourne I'adresse du descrlpteur de la chaine 
; dans A2. Dans ce descrlpteur. on trouve dans I'ordre, la longueur de la chaine sur deux 
. octets survie de son adresse sur 3 octets (24 bits). On sauvegarde I'adrosso du premier 
; descripteur dans 05. 

; Saisle (ou tentative) du trolsleme parametre (qui doil etre une variable enDer e), 
. On place I'adresse du premier elemenl du tableau de variables entieres dans le registro AO. 
; On n'utilisera pas ce registre tout de suite, mais eftcctuor cette operation maintenant nous 
; evitera de le lairs deux tois, plus tard. 

; On teste le contenu de DO. S1I est nul, il n"y a plus de parametre dans la Itste passee 
; depuis le Basic. On se dirige vers 1'etiquette @1 pour prendre to nombro par dofaut. 
; On force le bit 15 do DO a car on peut let avoir une variable enilere temporalre (une 
; expression comme "NombreChalne-10", par exemple) 
, On s'assure que le parametre passe est bien un entier 
; Sinon, message d'erreur. 

; Commo vu precedemment, A2 pointe sur le contenu de la variable entiere On place 

; cetlH vnlsur (nombre de chalnes a trier) dans DO et on se dirige vers le tri. 

; Si nous n'avions pas de troisieme parametre. il taut trier toutcs les chalnes de 

; caractfires. Pour cn connaltro Ic nombre, on rccupere le nombre de variables entieres 

; contenues dans le tableau. Ce nombre se trouve dans les deux octets precedents le premier 

; element (voir le numero 16 de Pom's). La valeur trouvee 6s* places dans DO et on se drrige 

; vers la routine de tri. 



; La routine ' BasicError* provoque 1'affichage d'un des messages d'erreur du Basic Microsoft L'argument doit etre place dans le 
@a MOVEQ #2,D2 ; registre de donne D2. 2 correspond a "SYNTAX ERROR" (ou son 6quivalent transais). 

JSR BasicError(A5) ; Le retour a linterpreteur est aussi assure par 'BasicError'. 

; Routine de tri. La m6thode utilis6e est le tri par insertion. 

Tampon Set -14 ; On prevoie un tampon de U octets au sommet de la pile dans lequel nous placerons : 

AdrChaineFxt Set Tampon , • I'adiesse -4 octets- de la premiere chaine (chaine extraite) . 

LongChaineExt Set -10 ; - la longueur -2 octets- de la premiers chaTne ; 

AdrChaineComp Set -8 ; • I'adresse -d octHls- de la seconde chaine (chaine a comparer) ; 
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LongChairwComp Set -4 

Nombre Elements Set -2 

@2 LINK A6.#Tampon 

MOVEA.L D5.A1 

SUBQ M.DO 




MOVE 


D0.NombroElomofite(A6) 


MOVEQ 


#1,D1 


BouckiPrincipale 


MOVE 


D1.D2 


ADD 


D2.D2 


MOVE 


0{A0 1 D2).D3 


SUBQ.L 


#4.SP 


MOVE 


D3,-(SP) 


BSR.S 


Adressc E t Lon g uou r 


MOVE 


(SP)+,LongChalneExt(A6) 


MOVE.L 


(SP)+.AdrChaineExt(A6) 


MOVE 


D2.D4 


BouelcSecondaire 


SUBQ.L 


#4.SP 


MOVE 


-2(AO.D4).-<SP) 


BSR.S 


AdressottLongueur 


MOVE 


(SP)+XongChaineComp(A6) 


MOVE.L 


(SPJ+,AdrChaineComp(A6) 


MOVEM L A0-A1/D0-D3.-(SP) 


SUBQ.L 


#2.SP 


MOVE.L 


AdrChalneExt(A6).-(SP) 


MOVE.L 


AdrChaineComp(A6),-(SP) 


MOVE 


LongChaineExt(A6).-(SP) 


MOVE 


Long ChaineComp<A6),-(SP) 


MOVE 


#IUMagString.-(SP) 


Pack8 




TST 


(SPK 


MOVEM. L (SPKA0-A1/D0-D3 


BMI.S 


Infer ieu re 


MOVE 


D3,0<A0,D4.) 


BRA,S 


SortieBoucleSecondaire 


Interieure 




MOVE 


-2(AO,D4),O<A0,D4) 


CMPI 


#2.D4 


BNE.S 




MOVE 


D3,-2(A0,D4) 


DRA.S 


SortieBoudeSecondaire 


QM SUBQ 


#2,04 


BRA.S 


BoucleSecondaire 


SortieBoudeSecondaire 


CMP 


NombfeEtementstAGJ.DI 


BEO.S 


Rn 


ADDQ 


#1,01 


BRAS 


EtouctePrincipale 



Rn 



UNLK 

MOVEQ 

RTS 



A6 

#0.DO 



; - la longueur -2 octets- de la seconde chain© ; 

; • le nombre -2 octets- de chalnes a trier (moins un). 

; Creation du tampon de 14 octets au sommet de la pile. 

; L'adresse du descripteur de la premiere chaine de caracteres est placee dans le registre A1. 
; I© registr© DO, qui contiem la nombre d8 chalnes a trier , est oecremente de 1 . On a done 

. dans DO le nornbte moins 1 , ce qui convient mieox a une routine en assembteur (premier ■ 0, 
: dernier - 

; On sauvegarde le nombre dans le tampon au sommet de la pile. 

; Le registre D 1 sen de 'compteur d extraction . On y place la valeur 1 . ce qui corres pond a la 
, seconde chaine a trier. 

; Une cople du compteur est placee dans le registre D2. 

; Le contenu du registry D2 est multiplie par 2 Cud nous donna le decalage en lie le debut du 

; tableau de variables enberes et la variable en tie re contenant I'index de la chaine a extraire 

; (rappetons que les Index doivem etre places dans le tableau de variables entieres par le 

; programme Basic Les Index constituent les 'numeros d'ordre' des cnaines). 

; L'adresse du tableau de variables enberes (AO) plus le decalage par rapport au debut du 

; tableau (D2) nous donne I'adresso do hndcx. quo Ton place dans lo rogistro D3. 

; On reserve une place de 4 octets au sommet de ia pile, pour le retour par la routine 

; 'AdresseEtLongueur' de l'adresse de la chaine extraite. Ensuite. I'index de la chaine est 

; e-mpile. La longueur de la chaine sera retournee dans la pile a rendroit ou ect place llndox 

; La longueur de la chaine est placee dans le tampon au sommet de la pile. 

, L'adresse de la chaine est aussi placee dans le tampon au sommet de la pile. 

; Une copie du oecalago est placoo dans to registre D4. 

; Reserve une place pour le retour de l'adresse de la chaine a comparer 
; A0+D4-2 nous donne l'adresse de Cinoex de la chaine a comparer (au 'premier tour" de la 
; boucle second aire, il s'ag'rt de I'index precedent celui de la chaine extraite). Cet index est 
; empile et on appelle la routine 'AdresseEtLongueur'. 

: La longueur de la chaine est placee dans le tampon au sommet de la pile. 
; L'adrosso do la chaine est aussi placoo dans lo tampon au sommet de la pile. 

; Les registres qui sont modifies par la routine 'PackG' sont sauvegardes au sommet de la pile 
; On prevoie un emplacement de 2 octets pour le retour du resultat de la comparaison. 
; L'adresse de la chaine extraire {Chaine A) est empilee. 

; L 'ad f esse de la chaine a comparer (Chaine B) est empilee 
; La longueur de la chaine extraire (Chaine A) est empilee. 
; La longueur de la chaine a comparer (Chaine 8) est empilee. 

; On empile enfin le selecleur de routine' correspond ant a la routine de comparaison. 
; Appel de la routine 'Pack6'. Au retour. le resultat situe au sommet de la pile est egal a -1 si la 
; chain© A est intcricur a la chaine B, si los doux chalnes sont egales, 1 si la chalno A ost 
; superieure a la chaine B. TST (SP)+ posidonne les bits 2 (zero) et N (negarjf) du registre 
; d'etal en fonction du resultat otatenu. 

; Les registres retrouvent leur contenu initial (comme avant I'appel de la routine 'Pack6'). 

; Vers (etiquette 'interieure' si la chaine extraite est interieure a la chaTne a comparer. 

; Si la chatne extraite esl superieure ou egale a la chaine comparee, on insere I'index de la 

; chaine extraite dans le tableau de variables entieres, et dans l'6lement suivant celui qui 
; conbent I'index de la chaine comparee. On sort ensuite de la boucle secondaire. 

; Le contenu de I'element du tableau correspondani a I'index de la chaine comparee ost placo 
; dans I'element suivant (decalage vers le bas). 

; Si D4 contient 2. la chaine comparee etail la premiere chaine (puisqu'on utilise -2(A0,D4)). 
; Si ce nest pas le cas, branchement sur (etiquette @1. 

; Llndex de la ctiaTne extraite est mts a la place de I'index de la chaine comparee. Cette petite 
; manipulation supplementaire autorise I'emploi du premier element de chaque tabteau. On sort 
; ensuite de la boucle secondaire. 

; Le decalage depots la base du tableau de variables enberes est dlmlnue de doux pour 
; 'pointer' sur I'element contenant I'index precedent celui de la chaine qui vient d'etre 
; comparee. 



On compare le compteur (D1) au nombre de chalnes a comparer SI les valeurs sont egales. 
le traitement est (ermine, retour au Basic. 
Sinon, on increments le compteur de t. 
On va extraite la chatne suivante. 

Abandon du tampon au sommet de la pile. 

Pour signaler a llnterpreteur Basic qull n*y a pas derreur. 

Retour au Basic. 



; Cette routine retoume au sommet de la pile l'adresse et la longueur de la cnalne dont I'index a e-te empile par le programme appelant 
Index Set 8 ; Decalaoe entre l'adresse pointed par la registre A6 et llndex empile par le programme. 

Longueur Set 8 ; Decalage entre l'adresse pointee par A6 et I'endroit dans la pile ou sera placee la longueur. 
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Adresse 


Set 10 


AdrcsscEtLongueur 


LINK 


A6,#0 


MOVEM.LDO-DI.-(SP) 


MOVE 


lnaex(A6),D0 


MULL) 


#5,D0 


MOVEQ 


#0,D1 


MOVE.B 


2(A1,D0),D1 


L&L.L 


m,u i 


MOVE.B 


3(A1,DO),D1 


LSL.L 


#8,D1 


MOVE.B 


*1(A1.D0).D1 


MOVE.L 


Dl,Adresse(A6) 


MOVE.B 


0(A1,DO) f D1 


LSL 


#8,D1 


MOVE B 


1(A1,D0),D1 


MOVE 


D1,Loft9ueur(AG) 



; Decalage entre I'adresse pointer par AG et Tendroit ou sera place© I'adresse. 



MOVEML <SP>4- ( D0-Dt 

UNLK AG 

RTS 



CI - 



Sauvegarde les registres dont le contenu est modifie par cette routine. 
L'index de la chai ne est place dans DO. ^ 
On multiplie I'indHx par 5 afin d'obtenir Ipj rieralage par rapport au descripfeur de la premiere 
chalne a trier (voir le schema representant les desc/ipteurs de chaines et leurs contenus). 
Les 32 bits du registre Di soni mis a zero. 

Les bits 16 a 23 de I'adresse de la chaine sont places dans les bits a 7 du registre DI . 
On decale le contenu du registre D1 de 8 bits vers la gauche 

Les bits 8 a 15 do I'adresse de la chaine sont places dans les bits a 7 du registre Dl . 
On decale le contenu du registre Di de 8 bits vers la gauche. 
Les bits h 7 de I'adresse de la chalne sont places dans les bits a 7 du registre Dl 
L'adresse 'reconstituee' de la chaine est placee dans la pile. 

Les bits 8 a lb de la longueur de la chaine sont places dans les bits a 7 du rotjistro Dl. 
On decale le contenu du registre Dl de 8 bits vers la gauche. 

Les bits a 7 de la longueur de la chaine sont places dans les bits a 7 du registre Dl . 
La longueur de la chaine est placee dans la pile. 

Toutes ces manipulations (transferts d'octets et rotations) sont rendues necessaires par le 
fait que les descripteurs de chaines sont alignes seulement une fois sur deux sur des 
adrcsscs paircs ; il n'est done ici pas question d'cffcctucr des operations sur des mots ou 
des longs mots. 

Le contenu des registres DO et D1 est restilue. 
Retour au programme appelant 



Fichier TriLib.Job' 

Asm LIBinlt Asm Exec Edit 

Asm TriLib.Asm Exec Edit 

Link TriLib.Link Exec Edit 

RmakerTriLib.R Finder Edit 



Source 'LIBinit.Asm 1 

LIBVEFLResult EQU 6 

CLR LIBVER Result(AO) 

MOVEQ #0,DO 

RTS 



Fichier 'TriLib.R' 

TriUb.Rscr 
BUB 

TYPE CODE - GNRL 

LIBinit.t 

.R 

TriUb CODE 1 

TYPE CODE - GNRL 

TriUb.2 

.R 

TriUb CODE 2 



Fichier TriLib-Link 1 

/ OUTPUT TriUb 
LIBinit.Rol 

< 

TriUb.Rel 
$ 



Source 'Tri.Asm' 

(version 'tableau de variables') 



Tf«p _P«U<fl 1A0ED 









EOU 10 














AChEi 


Sal Tamprn 






ifibb 


Sat -10 






AChC 


G«1 -S 






IXhC 


Sal U 






NCrtEtttn 


sat <a 








5«t a 






Vvp&Ch annuo 


Sat 10 






VifpffFpsaa 


Sat 14 


4K3I 


FTF2 


UHK 


AeaTtmpon 


JS1C 


BB5E 


MOVEA.L 


14(MJ,A0 


)>ir 


onn» 


MUVfcAL 


tO(«).A.l 


10 tk 


UOOI 


MOVE 


3.. AG, DC 


S)40 




SUBO 


CI, 00 


)D40 


rrrc 


UOVE 


D0.UnBwn(A6) 


1J01 




MOVEQ 


f IXJ) 










Ub\ 




UOVE 


DUB 


0441 




ADO 


D2.02 


>410 


1909 


MOVC 


0(A0,D2KD3 


s»ar 




SUBOL 


*4,SP 


IFfll 




MOvE 


1M-.SP) 


11 IB 




BSRS 


AdraiaaLonguaur 


S3 IF 


FFF4 


MOVE 


(SP)-,LChE«(A«) 


jmr 


FFFI 


MOVE L 


(SP)*,AChE«(M) 


1103 




MOVfc 


U2.LW 






BoweUS*eon<J»ira 








SUBOL 


MSP 


srstj 


(OIL 


MOVE 




IIN 




BSR5 




iSST 


rrrc 


MOVE 


(SP)-.LratC(AH} 


:d5f 


FFFI 


MOVE L 


(SPl-ACftC)AOI 


4«£1 


FKO 


MOVEML 


AO-At/OfrtW.^SP) 


S54T 




SuBQL 


n,sp 


JF7t 


rrr> 


uovf i 


Acni-i(*B).'{Sf) 


U3Z 


FFFI 


MOVE L 


ACHC<A0M5P) 


mi 


rrr» 


MOVC 




irjr 


rFFC 


MOVE 


LChC(M)MSPJ 


1PV 


000» 


MUVt- 


4nuuagSnng.-{SPj 


AftU 




PacKO 




<ASP 




TST 


(SP). 


ICBF 


OJOF 


MOVEML 


(S*V-*0-*l"»-03 


IBOt 




BM S 




111] 


1000 


MOVE 


03,01 A0.D4) 


101 1 




orws 


Strt«Bo«jcl« 






hil««iw>* 




11B0 


tort 


4900 MOVE 


K«,D4),0(A0 ( 0*) 


OC4 4 


0001 


CUOI 


»3,0i 


ttet 




BNE S 


I0>» 


)U) 


40FE 


MOVE 


D3,-?(AO,D4) 


4004 




BRAS 




i»4 




®\ SUBO 








BRAS 


Boua«S4KOniMiti 






SertaBeoda 




slit rm 


CMP 


NaroCiBm(AO)Dl 






BEQ.6 




1341 




ADOO 


•1.D1 


404T 




(WAS 


naudaPrinopals 


«EM 




Hn UNLK 


M 


4E7S 




RTS 









Mm 


BOB 








Ml 






AdrttM 


sat 10 






AanMUngun> 




4tSi 


oooc 


LINK 


ASH 


4n; 


cooo 


MOVEML 


DO-OMSPJ 


)o;t 


9000 


MOVE 


lntHi(A0|.DO 


core 


0001 


UIXU 


4H.O0 


7J0O 




UOVEO 


W.Ol 


IUI 


000 1 


MOVE B 


?(*>.DO).Di 


Eiai 




L8LL 


**.0t 


l«i 


0001 


unvp R 




Rial 




LSLL 


■0.D1 


mk 


coot 


MOVE B 


4(AI.D0>),0t 


104 L 


009A 


UOVE L 


D1,JLAa«fa(AK) 


!«1 


0000 


MOVE 8 


0|A!.DQ>I.D1 


RXtfl 




LSL 


afl.Dl 


UtM 


0001 


MOVE 9 


l(Al,0»),Ol 


1D41. 


0004 


MOVE 


Dl l torv Mur (' 1 ' 1 ) 


4C0P 


000) 


MOVEML 


(SPJ4.00-D1 


•tic 




UNLK 


AO 


4C1S 




UTS 





| i — j YARPTR(Tableau$(0)> | j 



12 3 4 


Longueur 

Chaine 1 

■ . — 


Adresse 
Chaine ,1 


Longueur 
Chaine 2 


Adresse 
Chaine 2 

— i 



i 






00 


06 


OB 


65 


03 


Longueur 
Chaine N 


A'dresse 
Chaine N 



I — I Adresse $66503 1 — I 

I 



c 


h 


a 


i 


n 


e 



: 
i 



Table des deachpteura pour ! 

ur> tableau de chaTnes de 
caracteres (une dimension) j 
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eC3 



-4 



accessoires 




68000's 

Julien Thomas 



Quel que soil le langage que Torvutilisc. 
il peut £tre imtfressant d'avoir un 
minimum de connaissances en 
assembleur, ne serai t-ce que pour ecrire 
des petites routines destinies a pallier 
certaines d6ficiences du langage 
(traitement trap gourmand en temps ou 
simplement impossible), 

Seulement, le 68000 6tant un 
microproccsscur puissant, il offre un jeu 
destructions dtcndu, autorise souvcnt 
plusieurs syntaxes par instruction, 
chacune d'cnire-elles offrant 
g6n6ralement de nombreux modes 
d'adressage possibles. Si Ton ajoute a 
cela la mi lie des opeYandes (octets, mots 
ou longs mots) qui varie cn fonction dcs 
instructions et des syntaxes;, l'effet sur 
le contenu du registre d'£tai, plus 
quelques cas particuliers, on comprend 
qu'il n'est pas facile de mdmoriser ce 
qu'il est possible de faire avec le 68000, 
ou plutot ce qui ne Test pas (c'est ce 
dernier point qui, souvent, nous oblige a 
faire un reassemblage). 
II est bien stir envisageable de consulter 
un manuel de reTeVence du 68000 
lorsque cela se revele n6cessaire, mais 
l'expdricncc montre que cette m^thode 
n'est pas trcs pratique, {'information 
recherchfie tftant g$n£ralement noy6e 
dans d'autres (qui pratique l'assembleur 
et n'a jamais confondu les modes 
d'adressage autorises pour l'operande 
source, et ceux autorises pour 
l*op£rande destination ?). 

D'ou I'idec d'e*crire un accessoire de 
bureau qui pennettrait une consultation 
simple et immediate lorsqu'une 

verification s'impose. 

Utilisation 

Nous avons voulu cet accessoire aussi 
pratique que possible ; pour cette raison, 
on peut le commander entierement avec 
la souris bien sur, mais aussi avec lc 
clavier. 



Changement 
d'lnstruction 

Avec la souris en cliquant dans le 
tableau des instructions (i'operaiion 
n'est prise en compte que lorsque le 
bouton est relache). 



bouton correspondant, de Ja maniere 
habituelle. 



Avec le clavier : 
• la louche tabulation deplace 



la 

vers la 



selection d'une position 
droite ; 

• la louche 'back space' deplace la 
selection vers la gauche ; 

• un relour chariot deplace la 
selection vers le bas ; 

• un retour chariot accompagne* de la 
touche majuscule deplace la selection 
vers le haut. 

Dans tous les cas, un de*placement hors 
des limites seMectionne rinstruction 
situee le long du bord oppose* du 
tableau. 

Ces placements peuvent aussi itre 
obtenus avec les touches flichfcs du 
Macintosh Plus 

La selection d'une instruction entrafne : 

• l'affichage de la syntaxe (ou des 
syntaxes, puisqu'il peut cn cxistcr 
jusqu'a trois) ; 

• l'affichage de l'effet de rinstruction 
sur le rcgistre d'dtat ; 

• Tinversion des modes d'adressage 
valides pour les op^randes source et 
destination (pour la premiere syntaxe 
s'il y en a plusieurs) ; 

• l'inversion des longueurs valides 
(pour la premiere syntaxe s'il y en a 
plusieurs) ; 

■ si niccssaire, un message signalant 
u n cas particulier (pour la premiere 
syntaxe...). 

Changement de syntaxe 

Avec la souris en cliquant sur le 



TRAP ITRflPU ITST 



IUNLK 



1 



®^0D <RE>,Dn 
O nDD Dn,<BE> 

Si Source = An : .V et 1 ff*ulement. 



Avec le clavier : 

• sur un Mac 128 ou 512 cn appuyant 
sur la touche Emrie ; 

• sur un Mac Plus, en appuyam sur 
EnirU ou Annotation. 

Les indications fournies par l'accessoire 
sont modifies cn consequence. 



Le registre d'etat 

Pour indiquer l'effet des instructions sur 
les bits du registre d'dtat, nous avons 
employe* la mdthode suivante : 

• case noircie pour un bit positionne" 
(mis a ou 1 en fonction du resultat) ; 

• case grise pour un bit dont 1'tftal n'est 
pas dcTini ; 

• un T si le bit est toujours a 1 ; 
■ un '0* si le bit est toujours a ; 

• une case vide si Vital du bit n'est pas 
modified par rinstruction. 



H | N | Z | UT"C 



1 



\ Bit C non affeote 



i Bity toujours J| rj 

j ! ^BttZJpjjjpursj,! 

L, _ _ _Bit Njndefini 

„ Bit. ft positionne 



Fichier 

T68000.Job' 



Asm 



BMOOa a.,.. 
FMOOG.LInfc 



E..c Ed* 
Font-DA Mover Edit 



Fichier 
'F68000.Llnk' 

i 

S6BOO0 

/output Aeeassoire BtHJQO 
/TypftWl' "DMOV 
I 



Source 
'S68000.Asm' 



INCLUDE SO80OO/I .A»ni 
WCUJO€ 308000/2. Aim 
END 



Source 

'SGBOOO/LAsm' 

Note : le cvactere "J 1 indique li 
continuity d'une ligne. 

RCGOunce -onvFr m «oooo v 

.Trap _B»ginUpdat« SAO 22 



.Trap 


_CopyBils 


SASEC 


.Trap 


JJTMTO 


SA891 


■Trap 


_DliposWindow 


SA014 


Mm 


_ Move To 


SA893 


-Trap 


JJramChw 


sap a 3 


-Tr» 


.NawConiroi 


&A»->4 


.Trap 


_Df«wCom«)la 


SA060 


.Tr» 


_NSWP!T 


SA11E 


• Trap 


_C"awSirirwg 


$A3B4 


.TfWD 


_NawWlndow 


SA9U 


,xm 


_EndUpdala 


SA923 


.Tr» 


_PalntR«a 


SABA? 


-Trip 


^ErasaHact 


SA8AJ 


.Trap 


_PanMo» 


SA89C 


Trap 




5A96C 


-Trap 


PanNuimaJ 


SA89E 


Trap 


_FmmaFtaa 


$A8A1 


Jt*> 


_P»nP*t 


SAA9D 


Trap 


_G«CRalCon 


SA95A 


.Trap 


Pen3l» 


SAA9B 


Trip 


_GatCllVflUja 


SA960 


.Trap 


^Pllnnsa 


SAG AD 


Trap 


_GaiCurt<v 


SA9H9 


.Trap 


.SolCUVdljo 


SA903 


Trap 


_Gat Mo u»a> 


$Ag/2 


.Trap 


_S«rCu»BO( 


SAA51 


Trap 


_G«tPlwl 




-Trap 


_3»tPoti 


SAcn 


Trap 




%ABJA 


.Trap 


_3howContiol 


SA937 


.Trap 


_GtobBJToLocal 


SAJ171 


.Trap 


_SliiOown 


5A9T3 


.Trap 


HrdaControl 


SA9S6 


•Trap 


Sy»Bosp 


SA9C8 


.T.ap 


InllCuiflor 


SA0SO 


■Trap 


_TElnh 


SAdCC 


.Trap 


..ln«(lRocl 


SABA* 


.Trap 


_T»jctFonl 


SA087 
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.Trap TortMode 


5AS3G 


.Trap _Tox 




SA86A 


Trap Tra«*Control 




.Trap IVaJaJRsci 


SA92A 


SfcOf 


Equ 


1 




Equ 


2 


PatCopy 


Equ 


8 


PatOr 


Equ 


B 


PalXor 


Equ 


10 


gensva 


Equ 


3 


monaco 


Equ 


A 


Whit* 


Equ 


•a 


Blade 


Equ 


•18 


Gray 


Equ 


-74 


top 


Equ 





istt 


Equ 


7 


bottom 


Fqu 


4 


right 


Equ 


I 


w 


Equ 





n 


Equ 


7 


arrow 


Equ 


•108 


mHutUwntvl 


Equ 


1 


hoyDwnEvt 


Equ 


a 


keyUpEvt 


in 

c 


4 


auloXsyEvt 


Equ 


5 


updatEvi 


Equ 


6 


activatsEvi 


Equ 


8 


ovlNum 


Equ 


ft 


evlMsssago 


Equ 


$2 


evlMouse 


Equ 


SA 


eviMota 


Equ 


5L 


evtMBui 


Equ 


ec 
V 


accEvsnt 


Equ 


sm 


accCureor 


Equ 




active riag 


Equ 





ehittKey 


Equ 


9 


poriHect 


Equ 


$10 


Window* ind 


Equ 


SBC 


WindowSote 


Equ 


$ec 


noGfunOocPfoc Equ 


4 


raduButProc 


Equ 


t 


iBeamCutsur 


Equ 




oontrlRsct 


Equ 


M 


cant-rtVi* 


Fqu 


$10 


oCt Window 


Equ 


$1E 


dCtlFletNum 


Equ 


S18 


CSCoda 


Equ 


SlA 


CSParam 


Equ 


ilC 


Tompnoct 


Equ 


SOFA 


door 


Equ 


$200 



; Equivalences qui soronl utiSsoos pour 
; IndiquM las mesas tf adrsBsao* 
; outonaea : PaaM - Pas do Moeto 
; tfedrosaogo, Ml - Mode 1 ( Dn)... 



PasM 


EflU 


TW30O00OOCO00000OO 


Ml 


Equ 


%0OO0O0QOO0OO00O 1 


M2 


Equ 


%00O0OO0OO0OO0O10 


m 

M4 


Equ 


%00O00OOCO0O00100 


Equ 


%0000000000001 000 


Mi 


Equ 


1*0000000000010000 




Equ 


%00000 000001 ooooo 


m 


Equ 


%000000000 1000000 


MB 


Equ 


v^oooooooiooooooo 


MS 


Equ 


%0000000 1 00000000 


M10 


Equ 


TfcOOOOOOlOOOOOOOOO 


Mil 


Equ 


%00000 1 000 00 ooooo 


M12 


Equ 


%O0O01 00000000000 


TouM 


Equ 


^00001 11111111111 



; Pour Indiquar lee longueurs autonesos : 

; A_B - Adresaaos tfoctets, A_W - 

; adrossage do mots... 

A_H Equ XOOOlOOOtJOuOOQOOU 

a_w Equ xuui rxxxiooouoouoo 
A_L Equ V0100000000000000 

A_BWL Equ TWU111OOUU0OOOO0O0 

; Pour faffet das Inatrualon our l« rsgiatro 
; d'scat : BXo - Bit X pooJtJonna. BNi - B* N 
: indsM.nl. BZna - Bit 2 no n effects... 



BXp 


Equ 


%O000O00O00000CO0 


BXi 


Equ 


VO0O000OOO0OOO0O1 


BXn., 


Equ 


%O0O000OO000O00 1 


BXO 


Equ 


%00O00O0OO000O011 


BXI 


Equ 


WMOQOOODOOOO0 1 00 


Br* 


Equ 


%O0C0000O0000O0O0 


BNI 


Equ 


VO 00 0000 000001 000 


BNii* 


Equ 


■WOOOOOO 00001 0000 


BNO 


Equ 


%000000000001 1 ooo 


DN1 


Equ 


%00O000OO001 ooooo 


BZp 


Equ 


%oooooooooooooooo 


B2I 


Equ 


%O0O0O0OO0 1000000 


BZna 


Equ 


1W000000O100000O0 



320 


Eau 


AtOOOOOOMt 1OOO0M 

TWWW WV t » www w 


Lm 


l*idMa«ag. a (A3).Afl 


871 


- - - 


SO000OO0 1 0OOOOOOO 


Moveq #1«.D0 


BVd 


Eau 


SOOOOO OOOOOOOOOOO 


@1 Clr 




BVI 


Equ 

— 


SOOO^OIOOOOOOOOO 


Dbra 




BVna 


-J, 


VOOCOO 1 OOOOOOOOOO 


Mora 


■saooo.am s(A3j 


9V0 


Equ 


\O0000 1 1 0OOOOOOOO 


Move 


SU! — '.\ 


HV1 


Equ 


%O00Ol ooooeoonooo 


Bar 


Tra*amaril 


HCp 


Equ 


*oocoo ooooooooooo 


Pas 


RartSyntaiai' 


BCi 


Equ 


%000 1 oooooooooooo 


_Vil 


dRsct 


BOm 


Equ 


•fcOOiOO ooooooooooo 


Pea 


HsctSyntA<»«? 


RCO 


Equ 




_Vsl 


dRaet 


BCI 


Equ 


%oiooooooocoooooo 


Eur? 





: Fqiovajnrv*4 pnur inrlrjuar Is nurruhra Osi 
: ma«saa«a das oac partioitarrt 



M>g1 


Equ 


%00t OOOOO 


M>g2 


Equ 


%01GQO0QQ 


Msg3 


Equ 


%0 11 00 000 


M»g4 


Equ 


%1 0000000 


M^5 


Equ 


%10100000 


;Touchai. 








Em 


Equ 


3 


. Ernies 


bs 


Equ 


a 






Equ 


8 


. Tabula liui! 


Cfl 


Equ 


13 


; n«L chariot 


HQ 


Equ 


20 


iPtachs *- 


ro 


Equ 


29 


;Fl6ch* -> 


rn 


Equ 




; Fttehe Haul 


no 


Cqu 


31 


; Flichs Baa 


Ann 


Equ 


27 


; Annotation 


Out 


Equ 


$100 





; Oooalogos par rapport a la (koo du tampO' 
; do mflmoifa cro6 par raocossoirs. 



rtarxnescil 
MnamuCuurdiri 
Bill 5 

BilMdpkttno 
D-uuw.iuCuia 



Equ WlndowSUs 

Equ hWdk.iCll.12 

Equ MnomoCouran(*2 

Equ i' • ' -.: 

Equ BitMaplcooa»14 



NumoroSyntaao Equ DiflpoouCurs-i 



KandloCtl 

Pusftion 

ItiOMoasagos 

BuutonCourant 

IndGourcss 



Equ NumsroGynta>xa*i 

Equ HtndlaCtM 

Equ Posttion^ 

Equ lndMss9aoos*3 

Equ BoutonCouront-*! 



I rid Destination* Equ lndGouross-r12 
IndCCn Equ IndOostlnatlonB-i; 

Equ lndCCR-6 



IndLonguour 
CropoauCCFI 
CodsCCH 
MbraOaat g 



OsAur 

lie 
Do 
Dc 
Dc 
Da 
Dc 
Do 
Dc 
Do 

Tfcrs 

DC.B 



lndLongu«ur*3 
Equ DroposuCCP!- 1 
Equ GooeCCFV.2 



S4O0 



SI4A 



Ouvrs-Dobul 

Elat-Dobut 

Actfon-Dabut 

Etai-Dabut 

Fsms-Dsbut 



?.'o-gooo"5' 



Oum 

Mowm.L D3*07/A1-A4.-(SP) 

Mo/M.1. AI.A4 

TstL dCtlWWxtow(A4) 

Bns Etat3 

Subq.L »4,SP 

Mov».L SP.-(SP} 

_OslPort 

Mcvo.L SNbfoOotota.DO 
_NswPlr,oloar 
Bsq.S Poosblo 
Move #7,-{SP) 
_8ysBssp 
Irs Elsl2 
Posoiblo 

Mov*a.L A0.A3 
I4.SP 
A3,-(SP) 
CadrsFsnstns 
T|M 

iOuMSP) 

Srx>Gro*DocProc.«(SP) 
S-1.D0 

Do.-{SP) 
■OuHSP) 
-(SP) 



Subq.L 
Mova.L 
Psa 
Pss 

Move 
Move 

Movsq.L 
Movs.L 
Move 
CV.L 
_NSWWlnrJos» 
"sstPon 

Movft.l A3,dCttWlndmr(A4) 

Movs.L DollRslNum(M)J 

Window Kind (A3| 
Bsr Boutone 



tuts 




Mourn L 


(SP)«.D3-07/A1-A4 


Etat 




Mavaq 


SXJ.00 


Rib 




Fsrma 




Movem.L 


A.3-AA..(SPj 


Movea.L 


A.1 .AA 


MOVSL 


OOirWindow(A4).-(SP) 


_Dtipo«Wlndow 


Ctrl 


aorw«jow(A4) 


Movaa t 


Aa.Al 


Movem.L 


ISP>+.A3-A4 


Bra 


Eiai 


Action 




Movem.L &3-D7/Ai-A4..{SP> 


MoveaL 


A1 M 


MuveaX 


A0.A2 


MuvsaL 


cClW-n*w(A4),A3 


Movs.L 


A3.-(GPJ 


3stPorl 


Move 


CGCode(A2),D0 


Cop 


SacoEvent.DO 


Beq.S 


Evenament 


Cmpi 


SaoeCureor.DO 


B»q 


Cunsur 


Bra 


Etat 3 


Evtnsmsnt 




Movea.L 


C5Param(A2)A2 


Move 


EvtNum(A2).D0 


Cmpi 


■ mB<jtO*nFvl,DO 


Bsq.S 


Oontanu 


Cmp 


SfcayDwnHvT.DO 


Baq 


Toucfis 


Cmp 


vauioKayEvi.DO 


Rsq 


Toucfis 


CmO 


•uodai£vt.DO 


Rsq 


MksJour 


Cmf« 


•actlvaisEvt.DO 


Baq 


Active 


Bra 


EUB3 


: Chsrcns rempttosmsnt ou a eu Isu le 


Conlsnu 




Psa 


EviUouss<A2) 


OlobalToLocal 


Or 




Movs.L 


•vtMouM(A2).-{SP) 


Psa 


RsctMnemo 


PtlnRset 


Ts1 


tSP)* 


BsqS 




Move 


MnemoCourant( A3J.D0 


BeV 


ZonsMnarno 


Crrp 


Mnsrn6CdurintlA.lj.CNl 


Bsq.S 


ajh 


Btf 


Tralamant 


Bra,S 


@1 


Hfi2 MOVS.B 


BautonCoiurant(A3 J.D6 


BmlS 


©1 


Cir.(SP) 




UovaL 


EvtMousa(A2).-(SP) 


MOVS.L 


A3.-(SP) 


Paa 


Handk)CiKA3) 


FlndContfol 


TM 


tSPH 


Baq.S 


(fill 


or 


"(5P) 


MOVSX 


Hano»©Ctl(A3).-lSP) 


Movs.L 


EvtMous«<A2),-lSP> 


Clr.L 




_Tf scKConliol 


TK 


CSP)* 


Bsxi.3 


g>i 


9obq 


#4,SP 


Movs.L 


HandtsCtHA31.-(SP) 


QslCRsrCon 


Mora 


D6.D5 


AndLB 


•S30.D5 


Eal 


OS 


U( 


aM.DS 


Aodl 


•$0003,00 


Movs.L 





Lirp 06.07 
Bsq.s @i 
Bw cnangj 

•Syntax* 
Bra Etat3 




; En P» v*aotion eur urte toucns"?*> 



iftllfflS 

Move R 

Mnve 

Cmpl.B 

Rna.S 

Btst 

fiaqS 

Bra. 5 

CmpLB 

BBQ.3 

Cmpl.B 

Bsq.S 

CmpLB 

Beq.S 

3uu.B 

Beq.S 

Subq.B 

Deq.S 

Subq.B 

Beq.S 

Subq.B 

Beq.S 

Subq.B 

Beq.S 

Bra 



avtMes&age*3(A2).D7 
M nemo CO urantl A3) ,D6 
SCH.D7 
191 

ssnif]K«y.svtMsia(A2) 

Bas 

Haul 

SBS.D7 

GauUtn 

«Tdb,D7 

Dioite 

•Em,D7 

TrBuutoms 

•27.D7 

TrBouone 

#1,07 

Cauoho 

•1.D7 

Droits 

#4,07 

Haul 

#1.07 

Bas 

Etat 3 



Baa . ■--■-■«• bas ou Retour charkit 



AJuq 
Cntoi 
Bta.S 

Sub 

Bra.S 



#4.00 
•63.D0 

SeledionTouchei 
•04,06 

SeiootionTouohs 



Haut ; F»chs haul ou Shirvflst. chaiw 

SUOQ 84.06 
Til Dfl 

Bgs.S SslsalortToucha 
Add #64.06 
Bra-S SswalonTouoha 
Gauohe ; Ftsoha <• ou Bad< Spaoe 
Subq #1.08 
06,07 
#3,07 
#9,07 

Ssledllon Touch* 
■4.06 

Setert inn Tourha 



Move 

And 

Cmp) 
Qna.S 
Addq 
8raS 

Dfon8J , FMchs • ? o u Tabulation 
AdOg #1,06 
Move D6.07 

An* »?,07 

Bns.5 Selection Touch© 
Subq #4,06 
ssisdttnToucns 

Move MnamoCmirani(A3),*(SP) 

Rfll^{A.i).n7 
D7.|SP) 

SotadionMnsmo 

D6, Mne moCouanlf A3) 
D6.-(SP) 
07.(5P) 

SaiBCtionMnsnio 
TraJiemsm 
Etai3 

; Entrea ou 'Ajv«Jallon - 
Boulon Cou rant (A3).D7 



Move 
Or 
Bar 
Mora 
Mora 
Or 
Bar 
Bar 
Bra 

TrBoutone 
Mova.B 
BmLS 
Move 
Andl.B 
Evi 

Lei 

And. 

Addq 

Cmp 

Ble.S 

Moveq 

©2 Bsr 

©1 Bra 



D7^>5 

#S30.D* 

DS 

w.Ofi 

#50003.07 

#1,07 

05.D7 

(92 

•0,07 

ChangsSyrtaxe 
Etat 3 



; Routine da miss A four. AppsUs loue tee 
; oo u« program met cfaH left age. 
Ml5sJour 

Clr BB15(A3) 

Movs.L A3,-(GP) 

Movs.L (3P),-(SP) 

_Bsglnllpdats 

lOravtControla 

Movs Mn«moCourant(A3),-lSP) 
Bsi SotectlonMnemo 
Bsr AHkcheSokec 
Bsr AHtheCCn 
Ov ToWeaux 



Pom's n* 26 




AffiOhtlOOM 
Bar Syntaxalmtruclton 
Bv AHioheMaoMoa 
Mova.L A3. (SP) 
_EndUpdala 
Mova •**XK>.BIn5(A3) 
Bra Elata 

; For»6tra active au Inactive. 
Actfva 

Bt»t #actlvaFlag.evtMBuifA2) 
Bwj.S 01 
. InllCuraor 

Cif.8 DiapcduCuis(AJ) 
01 B/a Eui3 

; Pour to cfiarigeiiiefit do la (aima u"u uinwu' 

; en fondion do sa po»kioa 

Ciiiwur 

Hirttor Sat -a 



48 



1 Ink 


Afi,#Birt1er 


Paa 


Buffer' A6 J 


_Gl!Uoun 


MoVIl 


Hunar(A6).[M 


MOvfl H 


DrapaaiCum(A3).[]6 


Movaq 


90,07 


cir 


-{SP) 


MOVfl L 


D4.-(SP) 


PM 


ponRaa<A3) 


_PtlnR«ct 


Tti 


(SP)* 


Sne.S 


©i 


Tat.B 


DB 


Boq.S 


(92 


Movaa_L 


(A5J.A0 


Pea 


anow(AO) 


Bra-S 


(93 


01 Movaq 


#1,07 


Ck 


-<SP) 


Move.L 


04,-{SP) 


Pea 


ReotMnamo 


PtlnRact 


Tat 


{SP). 


Boq.S 




06 c-p s 


07,06 


Be«.S 


02 


Pea 


Curaaurl 


8ra.S 


#1 


04 Lm 


H«ndktaCtKA3),A4 


Movaq 


#8.06 


@7 Mova.L 


0(A4.D5).A0 


Movo.L 


(AO).AO 


Tat 


oontrMe{A0) 


Baq.S 


^5 


Clr 


HSP) 


Mova.L 


04.-{SP) 


Paa 


conlrfiad(AO) 


PlInRaet 


Tat 


(SP> 


Bna.S 


©6 


05 Subq 


•4.D5 


Bga.S 


07 


Movaq 


•2,07 


CmpB 


D7.DG 


Baq.S 


02 


Paa 


OuMurd 


03 SetCuraor 


UwaR 


D/.nfapiaif.ur*(A:t) 


9? Unat 


Afl 


Bra 


ims 


. A/I tttaoe una tabbaui. 


Tableaux 




Movaq 


#21,04 


Movaq 


•1,05 


Movaq 


#2.D6 


Mova 


#182,07 


«1 Mova 


DMWJ 


Mova 


D5.-1.SP) 


Mow 


D7,-{SP) 


Bin 


LlgneHoraorttato 


Add 


#12.05 


Don 


04.01 


Mow 


#4.04 


Movaq 


flJXl 


Mova 


#253.07 


©2 Mova 


DMSP) 


Mova 


D5.-(SP1 


Mova 


D7.-(3P) 


B* 


UoftaVartlOafe 


Add 


#40.00 


Dbta 


04.02 



Movaq 


#0.03 


Bv 


Tatjteaux2 


Movq 


•57.D3 


B»t 


Tat*Mui2 


Laa 


Modai.A4 


81 


HSP> 


Move 


•iW.*(SP) 


Mova 


#14,-(SP) 


Paa 


(A4) 


Bv 


AfffcfwChaino 


St 


-fSP) 


Mova 


#23fl.-[SPt 


Move 


#14.-<SP) 


Paa 


7(A4> 


Bv 


AmchaChalne 


Bv 


Tabtaaux3 


; 9rti tfetat- 




Laa 


BHS.A4 


Movaq 


•4,04 


Mow 


•178.D7 


03 Mova 


D7.-f.SP) 


Mnva 




_Uova 


TO 


Mova H 


(A4j*.m 


Frt 


00 


Mova 


DO.-tSP) 


DriwCrtir 


Add 


•22.D7 


Dora 


OA.C&A 


; A^'chogo Cob codoo mnomonouea. 


Bv 


PolieaMonacc 


Movoq 


#0,07 


Movaq 


•20.05 


Movoq 


#11,04 


04 Movoq 


•5.D3 


Movoq 


•3.06 


06 Bar.S 


AdresaeMnem-o 


Move.S 


(A4).-{SP) 


BctS 


08 


Andl.8 


«7F^A4) 


Addl.B 


turn 


06 Move 


07.00 


Ui 


#1,D0 


Cmp 


Mrvam©Courar>l(A3).D0 


Saq 


-tSP) 


Move 


D3.-{SP) 


Move 


04.-(SK) 


Move.L 


A4.-(SP) 


Bv 


AfteneChaine 


MOV* R 


(SP)*,(A4) 


Addq 


•2.07 


Add 


B40.D3 


Dora 


D6.0>5 


Add 


•12.D4 


DDra 


05.04 


Bra 


SuBeTaboau 



: Pour ootenlr radretaa as base oat 
; Worm adorn sui nnairuaion numito N. 
Ad'oMoMnemo 



Mova 


Tab*»Mr*mo{D7).D0 


Laa 


Tacf»Mn«mo<D0)A4 


Rlt 




TabtaMnemc 




Oo 


xAtxti-TaUoMnamg 


Oo 


xAdd-T^oMrwmo 


Oc 


xAddA-TabtoMnemo 


Do 


xAOoVTeMM nvmo 


Dc 


xAdoo/TiDtoM ntnvj 


Do 


zAddx-TaOlaM namo 


Dc 


nAnd-T^aMnamo 


Dc 


xAndVTabk«Mn«n>o 


Do 


jutadC-TataaMnvtiio 


Do 


xAndS-TaU»M t tamo 


Dc 


AAat-TabtoMnamo 


DO 


&Ai(-TabUMn*fi>o 


Do 


ABco-TaUaMnamo 


Dc 


«BchQ-T*UaMnan»o 


ft 


«8Clt-T#W?Mn»mv 




*Bf a-Tat*a M wma 


Dc 


*B»at-TaU«MfMifno 


Oc 


xBv-TafoMnamo 


Dc 


aBlal-TaclaMn«fno 


Dc 


xChk-TaWeMnamo 


Dc 


*Clt-TaUoMf*-i7o 


Dl- 


xCmp-TAaaMfiamo 


Dc 


xCmpa-Tabb MneroQ 


Dc 


xCmpJ-TabteMnemo 


Do 


xCmpm-TttftMnamo 


Dc 


xOBec-Tabkt M*» mo 


Oc 


lOiva-Tabki Mnamo 


Oc 


iOIvu- Tab lo M n «mo 


Oo 


xEor TobktMnamo 


Oo 


•Eori TatjtaMnomo 


Oo 


xEorC TabtaMrwmo 


Oo 


xEofS-Taba»Mn#mo 


Do 


iriHxg-TablaMnamo 


Do 


xErt-TabWMnamo 



Dc 


ill-TeCtaMn*mo 


Dc 


Kjmo-TabiaMnamo 


Dc 


iJv-TaWa Mnamo 


Dc 


ri.aa TabtaMnamo 


Dc 


rtJnh-TabVa Mnamo 


Dc 


ital-Tabla Mnamo 


Dc 


xLar-TabwUnamo 


Do 


■Mova TablaMnamo 


Oo 


kMovC TobiaMnomo 


Do 


xMevaa TacmMntmoi 


Do 


■MovU TabatMnamo 


Do 


zMovfS TablaMnamo 


Do 


xMte viS- Tat>(a M namo 


Dc 


■Movam-TabiaM namo 


Dc 


<Mo vap-Tab*a Mnamo 


Oc 


xM«vaq-Tab*a Mna mo 


DC 


tMua.T*«aMnamo 


Do 


xMtiu-TablaUnamo 


Dc 


vrJbod-TabtaMnamo 


Dc 




Dc 


vNagr-TabiaMnamo 


Oc 


rMop-TaMaMnamo 


Oc 


rNol-TaHaUnamo 


Dp 


(Of-TaCatUMmO 


Oc 


rOrt-TatWMnamo 


Dc 


xOfC-TaOMMnarno 


Oo 


jtOr&TabltMnamc 


Oc 


»P»a-TaW«Mnonio 


Oc 


ARaaal-TaUaMnamo 


Oo 


ARol-TabtaMnamo 


Oc 


*Rci-TabWM namo 


Oc 


*Rc*l-Tabte*itnamo 


Oc 


»Rc*f-TablaMfiomo 


Do 


iRli'TftbisMiwmo 


Dc 


*Ru-TabtaMnamo 


Dc 


iRna-TabiaMnamo 


Dc 


<Sbod-TabloMnomo 


Dc 


sScc-Tabaj M namo 


Dc 


xSlop- Table Mnamo 


Dc 


xBub-Tati'aMnomo 


Oc 


xSuba-TabiaM namo 


Oc 


xSwbt-TablaMnamo 


Oc 


xG4JOq-Tabk>Mnamo 


Oo 


ibuox- iftbicwnomo 


Oc 


<&v»ap-Tab*aM namo 


Oc 


■Taa-TaWaMnamo 


Dc 


xTrop-Tabio Mnamo 


Dc 


■Trapv-Table Mna mo 


Dc 


xTatTabtaMnamo 


Dc 


■Unfc-Tablo Mnamo 


SultaTabloau 




Mova 


•230,07 


Mova 


#2S6,D0 


Mova 


D7,-(SP) 


Mova 


(3P),-(SP) 


Mova 


DM3P) 


Bv 


Lh>iaVe(tk«la 


Uova 


•278.D5 


Mova 


D5.-(SP) 


Mova 


D7,-{SPJ 


Mova 


OS,-(SP) 


Bv 


LlojnaVaniceJe 


Movoq 


•3.04 


07 Mova 


D7. (SP) 


Mov* 


D*. {SP) 


Mova 


DS-^SP) 


Bv 


LiflnaHorho-mala 


SubL 


#14,06 


Dbra 


04.07 


: Atncnaga B. 


wm 


Bar 


PoiKaChicaoo 


Laa 


LongA4 


Maw 


•0.D9 


Mow 


05 .03 


Adda 


H.D7 


Mova 


#2fi6.00 


Movaq 


#2.04 


Laa 


lnaLanooaur(A3).A2 


•08 Movfl 3 


0(A2.D3).-(SP) 


MOW 


D7.-(SP) 


Mova 


Dft.-tSP) 


Paa 


0(A4X>5) 


ft* 


AltChaCnalne 


Adda 


#1.D3 


Adda 


•3.05 


Add 


#14.06 


Dbra 


04.08 


Rn 




Tablaauxa 




Movaq 


•1S.D7 


Mova 


#168,05 


Mova 


#221.06 


Uovaq 


#12.04 


01 Mova 


D5 -(SP1 


Add 


D3.(SP) 


Mova 


D7..(SP) 


Mova 


06HSP) 


Add 


D3.{SP) 



Bar 

Add 
Oct 

Sot. 

Movaq 

Mova 

AOd 

Mova 

Mova 

Bar 

Mova 

Add 

Mova 

Mova 

Bar 

Movt.L 



L«g nolle txonlaie 

•16.07 

04.01 

• 16.07 

• 18.04 

D5.-<SP) 

ns.isp) 
ru.+sp) 

D/^SPJ 

Lion* van |bj#j 

D6HSP) 
D3,{SP) 
D4. (SP) 
07,-tSP) 
LlonaVarticaJa 



PtnSlza 



Laa 

Mova 

Mova 

Mova 

Addq 

Mova 

Add 

Add 

Mcvo.L 



Tati*flodA4 

•1.(A4> 

D5.MKA4) 

• 18,botlom{A4) 

• 1.D6 
D0/«Qht(A4) 
D3.toft(A4) 
D3/tght(A4) 
A4,-(SP) 



FramtRoot 
PanNormal 



; Aftlohago dos modoa tfadrosftage, 



Bar 
Loa 
Laa 

Mova 
Movoq 
Movoq 
Movaq 
Movaq 
Tat 
Bna.S 
Move.H 
BraS 
03 UovaH 
7-- MOV* 
Add 

Mova 

Po» 

Bir 

Mov«.B 
Ext 
Addq 
Add 
Add 
DUa 
Rta 
TabWaux3 
Movt.L 



PollooCttcago 

Modoi,A4 

lndSourooa,A2 

•170.D6 

•32.07 

•11,05 

■0.D4 

•0.D2 

D3 

103 

0(A2.D2}.-(SP) 
04 

I21*2.02J.-(SKJ 

D6.-ISP) 

D3.(SP) 

D/.-tSH) 

1 3<A4.04J 

AnthaChaina 

13<A4.04).D0 

DO 

• 1.00 

DO .04 

•16.D7 

D5.@2 



PanSlia 



•SOOC20M2,-(SP) 



Laa 

Mova 
Mova 
Mova 
Mova 

Mova.L 



TompRadA4 
•223,(A4) 
•168>ft(A4) 
•240, bottom (A4) 
«27fi,hghl(A4) 

M-(SP) 



PrimaRact 

Movaq «3.00 
MOV8.L DQ.-(SF) 
_Pansn» 
Movaq 63.D4 



Mova 

Mova 

Mova 

Mova 

Bar 

Add 

Dbra 



■ 1B9.D7 

D7.-{SP) 

•225.-<SP) 

•238^SPJ 

LlgrttVanical* 

•22.0/ 
O4.01 



PonNorrnal 



Mova 
Mova 
Mova 
uova 

Mova.L 



•241 ,(A4) 

■i&a.iari(A*) 

•2M.bonom{A4) 

«279,nght(A4) 

A4,-(S8) 



FramaHact 



Movaq 
Mova 
02 Mova 
Mova 
Mova 
Bar 
Add 
Dbra 
Rta 

AHichaloono 
Mova.L 
Laa 
Mova 

Clr.L 
Mova.L 



•3,04 

•190.07 

D7.^SP) 

•242^5P) 

•2S2.{SP) 

LlonaVanloala 

*K,0? 

D4.02 



A4, (SP) 

aHMaploono{A3),A4 

4M.4(A4) 

*(A4) 

•$00200030.10 (A4) 



Pom's n° 26 



Lea 


loone,A3 


Movo.L 


A3 (A4I 


Movo.L 


A4.-{SP) 


MoveiL 


A3.A4 


Addq.L 


12. AX 


Movo.L 


A4.-i.SP) 


Pea 


HBMaplcona««CA3) 


Pea 


RaciDe»i 


Clr 


-(SP) 


Clr L 


-(SP) 


_CopyBHa 


lu 


miMapicone(AJ).A4 


Move 


fl4.4(A4) 


cr.L 


0(M) 


Move.. 


■S0007W»F.I0(M) 


LM 


Poma.A2 


MOVO.L 


A2.(A4) 


Movo.L 


M.-(SP) 


MuvmL 


A3.A4 


Addq.L 


#2.A4 


Movo.L 


A4.-(SP» 


Pea 


B*Maplcone.GCA3) 


Pea 


RoctDostPome 


Cf 


•on 


Ch.L 


-(SP) 


copyBits 


Movea.L 




Ru 




: Inlclalbailon ooa bouions do control 


Boulona 




Movoq 


#0.07 


Movoq 


#2.06 


Lu 


TompFUct.A* 


Move 


#25fi.(A4) 


Of 


!eft(A<) 


Mow 


#268 .bottom (A4) 


Move 


«1i.rlQhl(Ai) 


@I Bir.S 


Roirtona? 


Arirtr, 


•1.D7 


Add 


■15,(A4) 


Add 




una 


D6.(B>t 


Rlf 




Houlont? 




Subq 


#4 .SP 


Mova.L 


A3.-(SP) 


Pea 


TompRaa 


Poa 


P»T*ro 


Clr.L 


-(SP) 


Or 


■ISP) 


Move 


#MSP) 


Move 


#radk>ButProe.-(SP) 


Movo.L 


D7.-(5P) 


NewControl 


Lm 


1 land lo»Ctl(A3), A? 


Vovo 


D7.00 


Ul 


'2,00 


Movo.L 


{SP)*,C(A2,D0) 


FMa 





; La routine 'HumeroMnerr.oSouris' rotour no 

; au aommot do la pie to rtumoro do 

; rinstruotlon 'dtquoe'. ou 5FFXX oi to 'olio' a 

; eu lieu horn du tableau do tdlootlon. 

NumaroMne moSourti 

Parameito Set 12 



Movem.L 


DO- 01 .-(SP) 


Ck 


-(SP) 


Movo.L 


ov\Mouso(A2).-(SP) 


Pea 


ReaMnamo 


_PllnRscl 


TW 


(SP)* 


SOU. 


P«iam«ti*(SP) 


Beq.S 


01 


Move 


ovlMoueo»v(A2:).D0 


SuUj 


#1.00 


ExU. 


DO 


Divu 


•12.00 


Lei 


«2.00 


Move 


avtMotrae»li(A2).Dl 


Subg 


■2.01 


Exl.L 


Dt 


Dtry 


#40,01 


Add 


Dl .DO 


Movo 


DO,Paramoifo(SP) 


Movom.L 


(SP)*,O0-Ol 


Ru 





; La routine So taction Wne mo' mot on 
; inveree Nnetruetion eolocKonrsoo. Le 
; numero do (Instruction doit eve ample 
;avaeenplus lob* t5 a pour une rmse a 
; Jour, a 1 pour le trailoment normal. 

SelejcJonMnemo 
Drlnvon Sot -2 

BHInvert Sol 15 
Paiametie Set B 
Tampon Sot -10 

Link A6 ^Tampon 



68000 s 



hBCD 


ADD 


RDDA 


ADD 1 


flnni"! 


AODX 


RHD 


AND I 


flHDI >C 


AUDI >S 


nsL 


ran 


Bcc 


BCHG 


BCLR 


BRri 


Bstr 


BSH 


BTST 


CHK 


CLR 


cnp 


cnpR 


cmpi 


CMPM 


OBcc 


DIUS 


DIUU 


EQR 


EQR 1 


ECRl >C 


E0RI>S 


EXG 


EXT 


ILLEG 


jnp 


JSR 


LEA 


LINK 


LSL 


LSR 


tlOUE 


MOUE'C 


MOUEfl 


MOUEJJ 


moue<s 


M0UE>S 


flOUEM 


NOUEP 


MOUEQ 


MULS 


nuLu 


HBCD 


MEG 


MEGX 


MOP 


MOT 


OR 


ORI 


ORI >C 


OR 1 >S 


PER 


RESET 


ROR 


ROXL 


ROXR 


RTE 


RTR 


RTS 


SBCD 


Sec 


STOP 


SUB 


SUBH 


SUBI 


SUBQ 


SUBX 


SUAP 


TAS 


TRAP 


TnnPU 


T3T 


UNLK 



Source 


1 Dest. 


nn 


nn 


Hn 


Rn 


(fin) 


Iflnl 


(fln)+ 


(fln)+ 


-(flnt 


(fin) 


d(Rn) 


d(fln) 


d(Rn,HI) 


[d(Rn,Ki] 


fibs. Ill 


Rbs.UI 


Rbs.L 


Rbs.L 


d(PC) 


d(PC) 


jj(PC,Hi) 


d(PC,Hi) 


Imm 


Imm 



POM'S 39.51.2 4.43 

I » I n| z I u I c | 



O ROL #<donn6e>,Dy 
<5)R0L<flE> 



[BID 



un dee modes d"arir«oo* valid** I a 



Movo 


Parametre(Afi).DO 


; numiro du mode) do* *t* ampil* (rta A 


Bclr 


#Bftlnvort,DO 


; 1 1 ) evac en pUa la hit 1 5 a pour una miu 


SN>E 


Drlnvort(A$) 


; A |our. A 1 pour la traSarnant normal : ainsi 


Vovo 


DOjDi 


; que le b* 14 qui do« Atra A 1 a'll t'agit do 


And) 


#3,01 


; TopAraMe deitinatbn 


Lar 


#2,00 


SetaLtlonMode 




Mutu 


#12.00 


DrlnvoH 


Sot -2 


Addq 


#3,D0 


BitOoftllnalion 


Set 6 


Move 


O0,Tamporv*1op(AS) 


Dltlnvert 


Sot IS 


Add 


#0.00 


Pa/am 


Sot a 


Move 


DO. Tampon. ftoflom(AiBj 


Tampon 


Set 10 


Mutu 


eao.ni 


Link 


AS. •Tampon 


Addq 


aa.m 


Movo.L 


D0,-(SP) 


Move 


Dl ,Tamporu lan(A6) 


Movo 


Poram(A6) p D0 


Add 


•37.01 


Bclr 


•BHInvort .00 


Move 


01. Tampon. rflh!(A6) 


SNE 


Drtnvon(AS) 


Tat B 


OrlnvaniAb) 


Ext 


DO 


Bna.S 


©1 


Mull 


•18.D0 


Move 


•PoiCopy.-lSP) 


Add 


«1.D0 


Bra.& 




Move 


DOJamporutopt AS ) 


<&1 MQVfl 


■PaiXOf.-iSPl 


Aid 


413.00 


<ft2 _PenModi 


Move 


■ io. iampon*tionom(Ae} 


Pea 


Tamcor«[A6) 


Move 


■1 70. lampon*letl(A6) 


PalntRecl 


Move 


•220, i an po rw rtgn< lAtj) 


_PonNormal 


Rial 


■BAOeetratio n.Par am ( Ab) 


Movem.L 


(SPV.DO-Ol 


Raq.S 


0a 


Ut* 


A0 


Move 


W67JX 


Movo.L 


(SP1.2(SP) 


Add 


Oo.TamporHien(Ad) 


Addg.L 


#2.SP 


Add 


D0,Tampon*rigni(A6) 


Ria 




Tai.B 


Drinvon(A6) 






Bna.S 


#>1 


; Routine uliB»eo en caa tfactioni dans la 


Move 


•PatCopy ASP) 


; rone doa Inatruellono. 


Bta.S 


02 



2o no Moo to 



Movem.L 


DO Dl, (6P) 


@2 Subq.L 


#a,sp 


Bar 


NumoroMnomoSouriB 


Move 


(SPJ..O0 


BmLS 


®3 


@1 Cmp 


MnemoCouront(A3},00 


Beq.S 


@3 


Movo 


MnomoCouronHAS), (£P} 


Move 


B«1 S(A3),01 


Or 


Dl,(SP} 


Btf 


SoleotlonMnomo 


Move 


DO, MnomoCourant( A3) 


Move 


DO, (SP) 


Of 


D1,(SP) 


Dm 


SoleotionMnemo 


@3 Subq.L 


•a.sp 


SlIIIDown 


Tat 




Beq.S 


@* 


Pea 


evtMoueo(A3) 


GotMoueo 


Bra.5 




@4 Movem.L 


(SP)-,00-Dl 


Ru 





dbt Mgve •PaiXof,-<SP) 
(92 _P«nMude 

Pea Tannxrn(A6) 

_PalnlRocl 

_PenNormal 

Movo.L (SP)-^X) 

Unlh AS 

Move.L (3P).2(SP) 
Addq.L V2.SP 
Rte 

Fondionnemenl loentfcjue A oelul 0* 
"ealaftlonMnanvi'. male netta Ion pour la 
eeteouon dat ktngueuri vaboae [odat. 
mot at tong mot) 
Salaellonlong 



; La routine 'SelertonModo' wet en tnvene 



Orlnven 


Sat -2 


Rhlnven 


Sat 15 


Paramaira 


Sai a 


Tampon 


sat -i o 


Link 


Afl,# Tampon 


Movem.L 


DO-Dl.-fSP) 


Move 


Parametre(A6).D0 


Bdr 


■Brilnven.DO 


SHE 


Drlnverl(AS) 


Move 


•2M,D1 



3 



Muhi •14.DO 

Add OiJ>0 V) 
Move DO.Tampon*ioo<A6) 
Move 01 .TamoorHiefi (A6) 
Add H9.D1 
Move Dl Ja7TM»n.ngtM(A6) 
Add an. DO 
Move DO.TamDon^»nom(A6) 
Tn.8 DrlnvoneAo) 
Bno.S (91 
Move #PatCopy.-|SP) 
Bra.S iS>Z 
Move #PalXw.-(SP) 
02 _PenMode 

Pea TamportAfl) 
_PalrilReCl 
_PonNormal 
Movom.L (SP1-.O0-D1 
Unfc AO 
Movo.L (SH.2(CP) 
AeWq.L *2,SP 
Pfla 

Routine pour vieoalieo' foHot d*uno 
fntlruotion sur at rogietro d'etat. II laul. 
avttht fappel do U routine, emp-llar un mot 
do 16 bite contonant, done le polds lot, a 
num4rodub*(0pour X, 1 pour N...) et 
dftne le poidi fejbte (0 pour 
poaitionne, 1 pour Indellnl...). 

PotrtlonsBtta 

KaramNumero Set 9 

Par am Position Sot a 

Tampon Sot -0 

Indeflnl Sol 1 

ToukJunsO Sot 3 

Toujour* 1 Sot 4 

Ur* AQ.#Tampon 

Mown! D6-D7^5P) 

Bar PoDooCltfoago 

Move.B PaiaiiiNun>oiurA6).D7 

Ext D7 

Muki #22,0? 

Add #170,07 

Move D7,Tampon*lori{A6) 

Add #iO,D7 

Move D7,Tampon>rlghl(A6) 

Move #243, Tempo o*l«p(A6> 

Move f2S2,TamporHbonom(Afl) 

_PenNormal 

Movoa.L (A5),A0 

Move.B ParomPoetlk>n{Aa),D7 

Eat 07 

Bne.S 91 

Pea atack(AO) 

Qra.5 m 

(91 Cmri *lnrtalinl.n7 

Bne$ t§>3 

Pea r.ray(AO) 

BraS @? 

©3 Pea WhBe(AO) 
@2 _PanP«t 

Pea Tamnon(A6) 

_PainlHact 

Cmpi •ToujouriO.O/ 

8ml S @4 

Move 07.D6 

Move Tampon*oonorri(A6).D7 

Swap D7 

Move TamporHlofl(Afl).D7 

Addq #5.07 

Movo.L D7.-(3P) 
_MoveLo 

Cmd *TouWur»l ,00 

Beq.S fi>3 

Move r O-.-(SP) 

Bro.S ©o 

©3 Move r 1V(SP) 
®0 _DiawChn 

©4 Movem.L (3P)..D0-D7 
_PenNormal 
Ur* AS 
Movo.L (GP).2(SP) 
Addq.L #2,SP 

Rta 

Routine d*offichago doo ohaTnoo do 
caractO'oa. II taut ompilor, dons fordre. un 
d'ftpeou A 0_pour un efliohaoo normal et & 
$PF pour un. ofliohago en Invorto, la 
position dan* la fonotro (x.y). et radreaeo 
do la ohalno A attioher. 

AtiicnaChalrw 
AdfessoCfiaina Set a 



Pom's n° 26 



49 




Cooidonnaes Sot 12 

D-apoflu G«t 16 

link A6.*J 

Movtn.L A2/D2. (SP) 

T*l Drapaau(A6) 

Baq.S ©■ 

Move •SroXOf.-(SP) 

Bra.S 92 

@1 Mova #SreOf.-(SP] 
92 _T»KlModt 

Mova.L CoordonnM»(A«).-(SP) 

HovtTo 

Mova.L Adr*M*CKaJn«(Afi)..(5P) 
OrawStrlng 
Movam.L (SP]-,A2'D2 
Unlk AS 
Mova.L (SP).lO(SP) 
Add •tO.SP 
RU 





Suhq B 
Bnt.S 


•t.D* 
9< 




Pm 


Mq3 




Bra.S 


94 




5l«; B 


• 1.0* 




Bna.5 


97 




P»a 


Mg4 




Bra.S 


(»4 


&i 


Pea 


Mg5 


CM 


_Drav*5Ulng 


VI 


POl 





; Aifichaga da> *Yrta*B». 

SyntajralnaJmaton 



; KoUlna pour In 
: ou varucaiat 

UgnaHortzontale 
Tampon 

X J 
Y_0 

Link 

H 

Bio-S 
LlQinVenioaiB 

X_0 
Y_1 
Y_2 

LM 

5T 
Ugn« 



i Oa liQna* nanTnnlAlts 



Sot 2 
Gat 12 
Sal 10 
Gal B 
AS Jl Tampon 
Tompon{A6) 
Llgnaa 

Sal 12 
Sat io 
s«i a 

A6#Tampon 
Tampon* Ao) 



Mova 


MnamoCourant(A3 


Ma 


D7X>7 


Bar 


AdrowaMnamo 


Movaq 


•0.04 


Wuva.B 


(A4).D7 


But 


#7.07 


Baq.S 


91 


Movaq 


#2,04 


And) 


•S7F.D7 


Addq 


•2.D7 


91 Mova.B 


1(A4.D7).06 


EM 


M 


Mova 


Dtvm 


Move. 3 


(A4J.-(SPJ 


Mova.L 


A4.-CSP) 


Sub 


D4.07 


Mova.B 


07.{M) 


Bar 


PolbaCNoogo 


Move 


•PalOf.(SP) 


TailModa 


Mova 


#266,05 


Mova.L 


A4.C" 


Add 


D4.D7 


Laa 


2(A4.D7).A4 


Laa 


lndUa*aaga«(A3). 


Movaq 


•0.D7 


Paa 


RafflSyn1*iaa1 


EraaaRaet 


Pu 


RaeiSyntuu? 



.EraaaRaet 
92 Mova 



MOva.L 


Y_0(Afi),-{SP) 


Mova 


D5..(SP) 


MoviTo 


UovaTo 


Tal.B 


Tampon! AC) 


Mova t 


D3..(SP) 


Boq.S 


91 


Drawstring 


Mova 


X_0(AO).-(SP) 


Mova.B 


0(A-i.D7).S4 


Movo 


Y_2{A6J.-(SP) 


Mova.B 


04 sx 


D-n.S 


92 


Andl.B 


•SEO.OO 


91 Mova 


X_?(A6USP) 


Lsi.B 


#5.00 


Mova 


Y_0(A6),(SP) 


Mova.B 


D0.0-(A2.D7) 


92 Lin. To 




And 


•S1F.D4 


Ur* 


AS 


£-S Bai 


AdtauaSynlaxo 


Movo 1 


(5P).6(SP) 


Paa 


(AO) 


Addq 


•6.GP 


_Orawatrlng 


Paa 




93 AM 


#15.05 






Addq 


#1.07 


; TraHeroani oonaaculH A un ohangamam do 


Obm 


04.92 


; coda mntmonlqua. 


Mova.L 


(SP)».A4 


Trait tmom 




Mova.B 


(SP)*.(A4) 


Bir.S 


Synu»«In»tiuclk>n 


Mova 


(SPJ-..O0 


Bar 


CoritgBaulona 


96 Rla 




Paa 


RoaConuola* 







VaildRacl 



Cb.B 
Bll.3 
Or 
ST 
Bar 
1 nu 



Nurti*toSynUuo(A3) 

AlIlghsMBiuu* 

00 

Dtap»auCCR(A3) 
ImJwUvn* 



, Pour trouvar radraaaa da baaa do* 

; tnfotmaUo na aur oftaqua Inal ruction. 
AelfattaSyntav* 

D4.CM 

Tatv*Syni{D4).D4 
TafW5ynHO4|.A0 



; Aflfchaga doi metugaa pour las oaa 

; pa/lleuBar*. 

AfllcnaMaaiaga 

Bin M.RouionCour«ni(A3) 

Bna.S 9? 

Paa RaetSwnuiraa? 
EraaaRaet 



l$V 144 



IMUMU0it(A3).A4 

NumaroSyniaao(A3).D7 
D7 

0(A4.D7)J50 
91 



Mova.B 

En 

MOYO.B 
Baq.S 

Mora #gana*a,-(3P) 
_T#xtFont 

Mow *e.-(SP) 

TaitSlia 

Mova.L #$0127001 2.-(SP) 

_MovaTo 

Suoq.B #1.00 

Bna.S 93 

P» Mgl 

Bra.5 9* 

Subq.Q #1.06 

Bna.S 95 

Paa Mg3 

9r#-S 94 



Add 

Mova 
LM 

Rt* 
TatfoSynt 
Oc 
Da 
Oc 
Dc 
Dc 
Dc 
Dc 
Oc 
Dc 
Oc 
Dc 

Dc 
Dc 
Oc 
Oc 
Do 
Do 
Do 
Do 
Do 
Oc 
Do 
Do 
Oc 
Dc 
Dc 



Sy0-TaWa3yr»l 

Syl-TabtaSyrn 

Sy2-TablaSyrrt 

SyO-TaWaSym 

Sy4-ToWaSyi>l 

Sy5-TaWa0yn.l 

SyO-TaWaSynt 

SyMabtaSynl 

3y6-Tafc4*Syni 

Syfl-TaWaSynt 

SylO-TaWaSynl 

Gyll TaWaGynt 

Sy12 TaWaSyn* 

6y1J-TaWaSynt 

Sy1*-TaWaSym 

SylSTablaSynl 

Syl6 TaWaSynt 

6y17-Tabl48ynl 

Sy1B TaWaGynt 

6y1»-TablaSy^ 

Sy20 TabteSym 
Sy21 ToWaSynt 
Sy32-TabiaSyni 
Sy2>-TablaSyr« 
Sy24-TBWaSy« 
Sy2S-Tab(aSynt 



5y20-Tal>oSyni 
Sy27-Tabla5yni 
5y2fl-Taijlt5yn( 
Sy29-Tab*a3yi<( 
Sy30-TaUaSy« 
SyJ1-TaUa3yf<c 



;Polica Chicago 12 point*. 
PolioaChlcago 
Clr ^SP) 

TatriFont 
Mow #12.-(SP> 

_TiltS1» 

Rll 

. Polfca monaco 9 poina. 
PoKcaMonaco 

Mova #monaeo.-(SP) 

_TaxtFonl 

Mova #9.-(SP) 
TaxtSlza 

RU 

; Contquratiom d*a teutons *pr*a cnaqua 
: cnanoomant da coda mnimoniqu*. 

ContigBouton* 
Tal 06 



Lob 

Mova 

B*f 

Sw» 

Laa 

Movaq 

B*r.S 

Swap 

Laa 

Movaq 

Lar 

Bar.S 

Ttl.Q 

Oaq.S 

Mova 

Lm 

Movoq 

94 Mova 
An* 
Cmp.B 
8aq.S 
Mova.B 

U1 

Or 

Mova 

8f 

95 itr 



lndOestlnatfon*(A3}.A4 

•S4000.05 

IndiquaModa* 

D7 

lrKJSou'oa*(A3).A4 
#0.05 

IndiquaMc-daa 

D7 

IndLongua ur(A3),A4 

#12.00 

D0X>7 

IndlquaLong 

DraeaauCCn(A3) 

09 

CodaCCR{A3).07 

lndCCR(A3),A4 

#0.D6 

07X)5 

#S0007.DS 

0{A4.D«»X35 

@6 

05.0(A4.0*J 

mjo& 

D6.D5 
DMSP1 
PoMioruBfl* 
•3.D7 



Bna.S 


91 


Adflq 


#1,06 


Move.B 


#$«0 l BoutonCourant(A3) 


Cmpt 


•5,06 


Laa 


HandtaaCU(Aa),A4 


Bna.S 


©4 


Movoq 


•2.D7 


93 Hta 




Mov*q 


•0,05 


IndiquaLong 




Movo.L 


0(A4,D5J.-(SP1 


Movaq 


•0,06 


_MldaConlrol 


91 Btal 


D6.D7 


Adoq 


•4.D5 


Baq.G 


92 


Dbra 


07.95 


Tal.B 


0(A4.06) 


Rta 




Bna.S 


93 


Bar.S 


Brxfloni 


ST 


0{A4.06) 


LW 


HllftfHa*CmA3).A4 


94 Mova 


D6.-(SP) 


Movaq 


•4.0/ 


Mova 


Bk15{A3),O0 


BirS 


Bouton23 


Of 


DO.(SP) 


Suhq 


■1.06 


Bw 


SaladionLong 


Bna.S 


93 


Bra.S 


@3 


UOtf«S 


•Jlo.Bouionr^ouranic*-'') 


92 Tti.B 


0{A4^«) 


Mova.L 


Mann a *Cil*8( A3),- (SP) 


Baq.S 


@3 


_Hiaacontroi 


SI 


0(A4^6) 


Rt* 




BraS 


©4 


Mova.B 


•S20.BoutonCour«« CA3) 


93 Addq 


#1,06 


Mo«a 


•8.07 


Cmri 


«a,DS 


Bir.S 


Bouton23 


Bna.S 


91 


Rl* 




Rta 



8outon23> 

SuUj «2.SP 

Mova.L 0(A4.D7),-(SP) 

QfllCllValuo 

Tat (SP)» 

Baq.S 91 

Mova.L 0(A4.D7).-(SP) 

_Oo iCItValu* 

91 Mova.L 0(A4,D7), (SP) 

BhovrGontrol 
Rt* 

Boutonl 

Subq #2.GP 
Mova.L Handt**CtKA3), (SP) 
QatCIIValua 
Tat (SP). 
Bna.S 91 

Mova.L Ho#vil#*Ctl<A3) r (SP) 
Mova «1 .-(SP) 
_StlCtlVilu* 
®1 Mova.L Hand1a*CtKA3),-(SP) 
_ShowControl 
Rtf 

: AriOiagoi da* novaatnna 1 mnosc 
; dadrMsaga auroriias, ntgialra d"Mat *i 
; longiuuYfl rwmiiM. 

Indication* 

Mn*moCouramtA3}.D7 
07,07 

AdraakaMnamo 

(A4J.07 
#7,D7 



pa 



Mova 
Add 
8*r 

Mova.B 
Btit 
Baq.S 
Andl.B 
Addq 
Addq 
Eit 
Add.B 
Addq 
Laa 
Mova 
Btat 
Baq.S 
Addq.L 
Mow 
Lai 

Mova L 



#57C,07 
#2.D7 
•1.D7 
D7 

0(A4.D7).07 

•4V07 

0(A4,07),A4 

A4.D0 

#0,00 

92 
#1,A4 

.2(A4).CodaCCR(A3) 
•2.06 

0(A4.n«).07 



IndlovoMooss 
Movaq 

91 BlBl 

Boq.S 
Tata 

Bn*.6 
ST 
9« Mova 
Mova 
Or 
Or 
B*r 
Bra.S 

92 Til.B 
Baq.S 
SI 

B'a.S 

93 Addq 
Cmpt 
Bna.S 
Hta 

AllicrtoSalac 
Lt4 
Mova 
Movoq 

91 Til,B 
Boq.S 
Mov» 
Or 
Bw 

92 Trt.B 
Baq.S 
Mow 

Or 
Ort 
Dm 

93 Addq 
Ompi 

Orw.S 
Lm 
Movaq 
9* T*t.D 
Baq.S 
Mova 
Or 

Bm 

95 Addq 



#0,06 

D6X>7 

m 

0(A4^>6) 
@3 

0(A4,D6) 
D6,|SP) 
3V5!A3).CC 

D0,{SP) 
D5.(SP) 
SalacoonModa 
@3 

0(A4^6) 
@3 

0(A4,D6) 

<$A 

#1.06 

•12.06 

01 



lnd5ouices(A3).A4, 

BB15{A3).DS 

•0,00 

0(A4 ( M) 

DMSP) 
D5,(SPJ 
SolooionMOOa 
1 2(A4.D6) 
09 

DMSP) 

D5.(SP) 

•S4000.ISP) 

SaiocoonModa 

#1,06 

#12.00 

01 

IndLongua ur(A3).A4 

#0,06 

0(A4.DG) 

@5 

DO.-(SP) 
D5.(SP) 
SoledionLong 
• 1.06 



Pom's n" 26 



Cm Li 


a3 00 


Rim S 




Rlk 




AHicneCLH 




Lea 


lrvJCCK(A.'l),A4 


Moveq 


•0,08 


(_M Mova.B 


0(AJ.DhJ.DQ 


Ul 


■S.D0 


Or 


Oh.no 


M0V9 


DD,-(SP) 


Kir 


PosiTlrtniBni 


ArJoo. 


at .06 


Cmd 


•5.D6 


Bne.S 


©1 



; Pout (alia nulla A un diangomom do 
; ayniaxo (wait ou clavier). 
ChonfleSyntajte 

Tat D7 

Bne.S $1 

Move.L Handte»Ctl{A3).-(SP) 
Move J MSP) 
_StlCtlVtlU* 

Move.L HandiaaCtU4(A3j.(SP) 
Or -(SP) 
_SatCHV»lua 
CmpI a?,D5 
Brw.S (jp? 

Mnv/i L Hnndla *Cil.8( A3).-(5P) 
Or -(SP) 
_SarCll Value 
BraS <3>? 
fjfit Cmp* 01.07 
BneS rj>3 

Move I HanaiaaCil(A3).-(SP) 
Ck -(SP) 
.SatCtlValua 

Move.L Hwtdl«ftCllt4(A3),-(SP) 
Movo fl.-(SP) 
_8atCtlValue 
CmrJ #2,09 
Bnt.S ©2 

Move.L HandkMCll*8(A3).-(SP) 
Or -(SP) 
_SatCtIValu« 
Bra.S ©2 
©3 Move.L HandWeCtltASMSn 
Ofc- -(SP) 
_8«tCllValuo 

Movo.L I tandl»»Ctl*4<A0).-(SP) 
Clr -(SP) 
_9«lCtlValua 

Mova.L I iandiesCH.8( A3). (SP) 
Movo at, -(SP) 
SetCtlValue 



SI 

Mo.o.O 

Move 

Dm 

Andi.B 
Move.B 
Or.B 
B»r 



Drap*«jCCn(A3) 
D7,Nume roSynlaxe{ A3) 
07. DC 
Indicailona 

a£P0 , Bo utonCouronl( A3) 
NurnoroSynlej<e(A3),07 
D 7, BoutonCourant(A3) 
AfftohoMoieago 



Source 

'S68000/2.Asm' 

: Lista das syntaxes pocaioias- 



SyO 


Dc.B 


$01/ • 


Syl 


Dc.B 


S06; Dy.Dx* 


Sy2 


Dc.B 


V>C: (Ay). (Ax)' 


Sy3 


Dc.B 


$08.' <AE>.Drf 


Sy4 


Dc.B 


$00,' Dn,<AE>' 


SyS 


Dc.B 


$08/ <A£>M 


Sye 


Oo.B 


$0f; #<doon6o>.*AE,' 


Sy7 


Do.B 


$15/ a<donnee 6 bato.CCR" 


Sy8 


Dc.B 


$16,' a<donnes 10 brtl>,SR 


SyO 


Dc.B 


$00 ; Dk.D/ 


SytO 


Dc.B 


$oo; a^donnatojj/ 


Sy11 


Dc.B 


$os; «AE>' 


Syl 2 


Dc.B 


$0C; <*liquette»' 


Sy1_ 


Dc.B 


$0C.' {Ay).,{A*K 


Syl4 


Dc.B 


$0F; Dn,<etiq uane>' 


Syl 5 


Dc.B 


SOS,' Rjt.R/ 


Sy16 


Dc.B 


$03,' Dn* 


Syi7 


Dc.B 


$lA;An.a^deplacemenl 16 J 






bitsV 


Sy18 


Dc.B 


$0A.' <AE>.<AEr.- 


SylS 


Dc.B 


$00;<A£>.CCR 


Sy2C 


Dc.B 


$07; USP>rf 


Sy?l 


Dc.B 


$07; An.USP 


Sy» 


DcB 


$08; SR-*E>' 


Sy?3 


DcB 


$08.* *AE>.Sff 


Sy74 


Dc.B 


S1A; «-iueoaJ 



iaga>ba»»,«A£v 
3y25 Dc.B $1A." ^A£>.<lbw de J 

regi*tn>»' 
Sy2G Dc.B $09/ Dx.d(Ay)' 
Sy27 Dc.B $09; d(Ay) 1 OK' 
Sy28 Dc.B $0D," #<donn4e>.0rf 
Sy29 Do>,B $12; »<donr>*e 16 Wi»' 
Sy30 Dc.B $08/ f <vect*ur>' 
Sy3i Dc.8 $03; An 1 

; Pour aHchago du tableau das modoc 
; d'adroacago. 



«Ana 



■Anai 



lAraC 



Mom 5 DC.B 


SOO.'Sau'cv 1 


xAndS 


DcB 


SGS.'Oax.' 




DcB 


Ki.'Otf 




DcB 


$02 .'An' 


xAal 


OcB 


J04.'(An)- 




DcB 


*09.'(An)V 




DcB 


$05;-(An)' 




DcB 


505.'<J(An)' 




DcB 


$08,ci(An.XO' 




DcB 


J05/AU.W 


xAar 


DcB 


$05.'Ab».L- 




OcB 


$05;*PC)- 




DcB 


joo.'oiPCXO' 




DcB 


$03.'lmnV 




; Pour afflchagei diver*. 


xBcc 


Bflf DcB 


XN7VC- 




Long OcB 






Zero DcB 


tr 


xBchfl 


tm OcB 


*r 



; M*CC3Q«C d«« CM p*LllCUU*T 

Mgl OcB 44;3l*AE>-An.W*J.J 

a* jiomarrt, OCR inch«r>oa; 
Mop DcB 35. 'Si DaMlndbon - Dn : A. J 

alnon .3.' 

Mo3 Dc.B 20,'Si Source . An : .B 1 xBa , 
Wardri; 

Mg4 DcB 3«;Si Sourca - An : .W at .L i 

■aula mom.' 
MgS DcB 43,'Si donnatyadraiM. fly - J 

rtgWr* o r adn»«»«.' 

.Align 2 

Informatloni ralalves am ln»truci)om du 
MCeeCOO. Pout tt»aquo Imtructlon, on rftr* 
liouv* ; 

- un octal lr>dic;uflnl la tonguour du oodo 

m nemo nig uo, «voc la Wt da nqn* (7) A 1 al 

II y adaux caractaraa da piua (com me pour xBsot 

MOVE to SR pour tequol * code «st 

WOVC. mala qut ost roprssanl* dona it 

tableau par MOVE>S) ; 

- lee caradenM du coda | 

- un octat IndquaH la nombra 00 
syniaxa - 1 ; 

• pour cbaque eyntoxe, un octet contenant 

la numifo do eynlaae plua, al naoeaeaJre, A g ftf 
le numero du masaage U & cana lyntoxa ; 

- si na'caaaaJre. un octet A-1 earvant 
unlquamant A aAgner lee Inlormafiona 

•ulvarte* aur dea adreaaaa palraa ; b q 1b , 

- un mot da 1 6 Ma pour lea WormMlona 
relatrvea aux Ha oratai (3 h*a * 5) ; 

• pour onaqua cyntoxo. un mot da is bti 

pour inriinjuar lei rnoaaa tfadrauane 

aulornAi pour roparanda source ; 

■ pour cftaqua lyntaxa. un rnoi Ot 1 B Ml 

pour tndiquar tat mooai tfadraiaaga 

aiXnraii pour foperarde Oestlnaion M xChk 

lei ionouaun vaixiai (ooat. mot at long 

mot). 

xAbod Do.B $0<;ABCD',1.1.2 xClr 

Do BXp.BM.B2p.BVI.BCp 

Do Ml.Mt .A 3 

Do M5.M5.A B 
xAdd Dc.B$03.'ADD,1.3 ( MBg4.4.1 xCmp 

Do BXp.B^iBZp.BVp.BCp 

Do TouM,M1 "ABWL 

Do Ml.TouMMl M2 M10-M11J «Cmpa 
M12.A_BWL 

(Adde DcB $04.;ADDA',0^.-1 

Do BXnB.8Noa»82rm.8Vna.J xCmp) 
BCna 

Do TouM,M2,A_W.A_l. 
xAddl Do.B $0<;AODp.0.6.-i 

Do BXp.BfJp-92p-Bvp4.8Cp xCmpm 
Dc M1 2,TouM-M2-Ml C- M 1 1 •] 
U12+A BWU 

xAdoq Dc.B $0*;AD0Q , ,0^.Mag1,-1 xDBcc 
Dc BXp.BNp.B2p-BVp-.BCp 
Dc Ml2JouU'MlO-U11-M12+J 
A BWL 

xAodx DcB $0«;ADDX'.1.1^ JtDIVl 
Dc B^Br^B2p.Bvp*BCp 
Dc Ml.MUA_BWL 

DC M5.U&.A BWL xDlvu 



DC.B S03. AND".1 .3.4.-1 

DO BXJl8*Bfta>BZ0*BVO*BCO 

DC TouM-M2J«*1+A_BWL 

DC M1 .TOUM-MI -M2-M 1 0-M 1 ! J 

-M12+A BWL 
DC.B $O4;AN0r.0.6.-1 
Do aXn**Br**BZp*3Vt>.&G0 
Dc M12.TouM-M2-MtO-Mll-I 

M12+A_BWL 
DcB SM.'ANOl>C.0.7.-1 
Do BXp*Br*>»BZu*BV\>.BCo 
Do Ml2.PeaM*A_B 
OcB SM; AND I^.O.fl.-i 
Do BXp*Br*H-B2pr0Vp*0Cp 
Dc Mi2,PaaM*A_W 
Dc.B SOO.'ASL- .2,9,10,11 
Do OXpTDrVrOZprBVprtDCp 
Dc M1,MWA_BWL 
Dc Mt2.M1.A BWL 
Dc Pa»M,TouM-M1-M2-Ul0j 

M11-M12*A_W 
DcB S03.'ASn-,2.9.10,n 
Dc DXp-Dfe>r32p-BVp-DCp 
Do M1 ( MUA_BW1 
Do M12.M1»A_BWL 
Do PaaM,TouMMl-Ma-M10-J 

M11-M12+A._W 
Do.B $03;Bcc , .0.12 
Do BXna.BNnft*aZna.8Vn«-i 

BCna 

Do PaaM.Pe*M+A_B+A_W 
Dc.B $04.SCHG'.l.**M5g2j 

0UU»g2 
Do BXn^Br*a*87p*HVruuf 

BCna 

Dc U1,rouM-M?-Ulu-al11-| 

U17.A_K.A_L 
Dc Mi2.TouM-M2-MlQVM1t-l 

M12.A_B*A_L 
Dc.B S04.-BGLFr.l.4+Mse2j 

BiMawi 

Dc BXna*BNno*BZo*eVna.| 
BCna 

DC M1.TuuM-M2'MlO-A»l>I 

M12*A_>»A_L 
Dc M12.TOUM-M2-M10-M11-I 

DC.B SO3.-BRA _ .0.12 
Dc 8Xna*BNna«aZna*BVna.f 
BCna 

Dc P*»M.Pa*M.A B.A W 
DcB S04.'BSET.1.**Meg2j 

8*M»g2 
Dc SXr>a*Br«f^aZp«BVna*f 

BCM 

Dc M1.TouM-M2-M10-Ml1-J 

M12»A_EWA_L 
Dc Ml2,TouM-M2-MlO-Ml1-J 

M12*A_B*A_L 
Dc.B Soa,'BSrT,0,l2 
Dc DXna.DNfie.QZna.BVn*.] 

BCna 

Do Pa»M,Po»M.A_B.A_W 
DcB t04;aTSr.1.4*Ma.g2j 

S.MsgS 
Do BXna.BNna.BZp.BVna-J 

BCM 

Dc Ml.TouM.U2-M10-Ui1-J 

U12.A_B.A_L 
Do M12.TogW-M2-UlO-M11.J 

U12.A_B.A_L 
DcB S03, , CHK'.0.3 
Dc BXna*8naj>*B7UBUUBCt 
Dc TooM4J?.U1-A_W 
Oo.H SOS.tJLR'.O.Il 
Do HXna*8ND*BZl .BVO+BCO 
DC HneM. TouM-M2-M1 0-M 1 1 1 

-U17*A_BWL 
DC B SO-1. T, UP - . 0. 3. MlQ* 
Dc BXna.Bi>a>.B7p.BVp.BCp 
Dc TouUAt1*A_BWL 
Dc R SO*.CMPA-.u .5.- 1 
DC RXnn.flNp.fl7D. 9 Vp.BCp 
DC ToiiM.Mv.A_W.A_L 
OCB S04 'CMPf.Q6.-! 
DC BXra.BrcB2o-BVD.BCg 
DC M 1 2.TOUM-M2-M 1 0-Ml 1 -f 

M12*A_BWL 
Dc.B SO4. , CMPM".0. 13.-1 
Dc BXna*Brap*BZu*BVi>.BCv 
DC M4.M4.A BWL 
DCB $04;DBCC.O.I4.-I 
Do BXna.BNna.B2nA.BVna.) 

BCna 
DC MLPasM.A W 
DcB SW.THVS' .0.3.-1 
DC BXJVM-B^B2f>*BVD4BC0 
DC TouM-M2.M1+AJrV 
DcB S04;DIVU".0.3.-1 




i£or 

xEorl 

xEorC 
»EotS 

xExt 
.ii 

xjmp 
xJir 
xUa 
xUrat 
■Lai 



xLar 



xMove 



dtaWC 



Dc 

Dc 

Dc.B 

DC 

Dc 

Dc.8 

Dc 

Do 

Dc.B 

Dc 

Dc 

DcB 

Dc 

Dc 

Dc.O 

Do 

Do 

DcB 

Do 

Dc 

DcB 

Do 

DC 

Dc.B 

Do 

DC 

Dc.B 
DC 

DO 

Dc.B 
DC 

DC 

DC.B 
Dc 

Dc 



BXJa.BNyBZp-.BVp.BCO 

TouM-M2.Ml.A_W 

S03,'EOR\0.4 

BXrmBN^BZp*BVO.BCO 

Ml.TouM-M2-M10-M11-J 

Mi 2. A BWL 

soA'Eonr, 0.6,-1 

BXno.DNp.Q2p--DV0.BC0 

m1 2.t&um-m2-m ■ 0-m1 1 -j 

M12tA_QWL 

$04;c6ni>c.o,7,-i 

BXp.BNp.02p.iJVp.BCp 
Ml2,PaaMVA M B 

$M;Eonh-s , .o 1 e 1 -i 

DXp.BNp.Q2p.BVp.BCp 

Ml2.PaaM.A_W 

SO-.'EXQ'AIS+MtgS 

DXna^BNna.BZno.BVn«.J 

BCna 

M1tM2 , ,M1*M2*'A_L 

$03,'EXP,0,16 

BXna.BNp.82p-BV0.WX 

PaeM,M1.A_W*A_L 

$05;iLLEQ'ib.O 

BXna.BNna.BZr-uHVna>«I 

BCna 

PhM.PbsM 

sos.-jup-.o.ii 

BXna-BNn».BZna.HVf«.I 

BCna 

HaaM . t nuM-Ml -M2-U4-I 

MS-M1Z 

SOS.'JSW.O.1 1 

8xna*BNna*BZna*BVrx«*l 

BCna 

HMM.T0UM-M1-M2-M4-I 
US-MI 2 

J03VLEA\0,S 

BXmv.er4na.9Zna.BVna. I 
BCna 

TOUM-M 1 -M2-M4-M9-M1 Z J 
M2*A_L 

$04;LINK\0,17.-1 
BXna.BNna.BZna.BVne>. J 
BCna 
M2.M12 



Dc.B S03;LGL'.2,0,10.11 
Dc BXp.QNp.Q2p.BV0.DCp 
Dc M1.M1-.A_9WL 
Do M12.M1+A_BWL 
Dc PaaM,TouM-M1-M2 M10 J 

M11-M12.A_W 
Dc.B $03,15^^,9,10,11 
Do BXp.BNp.BZp.BVO.BCp 
Do M1,M1.A_BWL 
Do M12AI1<A_BWL 
Do PaaM.TouM-M1-U2-M10-J 

M11 M12.A.W 
Dc.B $04;MOVE , ,0.l8>Mag3,-1 
Do BXna.Br*.B2p.9V0.BCO 
Do ToyM.TouM-M2-U10.Ml1-/ 

M12.A_BWL 
Do.B $«4;MOVE>C,0,19,-1 
Do 8Xp.BNp.82p-5Vp.BCp 
Do TouM-U2.PasM-A_W 
xMevea Dc.B $O6;MOVEA'.0.5 

Do BXna.BNna.BZna.BVna.] 
BCna 

Dc TouM.U2*A_W*A_l 

xUoiaj oe.8 w;MOVF_i/.i.2a^i 

Do BXna-riNna.KZna.HVna. I 

BCna 
Dc P(UM.M2+A_L 
Dc M2.Pa«M.A_L 
xMovtS DcB S84.'M0VE<S , .a.M.-1 

Dc BXne.HNna.R7rui«RVnB.f 

BCna 

DC PaiU.TouU-U?-Ul 0-M1 1 -I 
M12*A\_W 
vMavts Dp a $g4.-MOVE>S'.0.23.-1 

Oc BXp.afJp.B2p.BVp.BCp 
Do TouM-M2.PaaM.A_W 
xMovam Dc.B »5.-M0VEMM .24.25.- 1 

DC BXna.BNna.BZna.BVna. I 
BCna 

Ml .M2.M3.M5-M*. M 7.| 
M6*M»M.W*A_L 
TouM-M 1 -M2-M5-M 1 2.M 1 - J 
M2.A W«A L 
xMowp Dc.B K».'M0V_P\1 .20 $HA 

Dc BXna*Bn^BZna*aVne>.i 
BCna 



Dc 



Dc 



Pom's n° 26 



51 




Da 



0* M1,M«'A_W.A_I 
Oe M6,M1.A_W.A_L 

kMovwj Dc.8 $O5.'MOVEO'.0.26 

Do BX*».aNe-B2>.BV0.BCO 
Dc M12.M1.A _ 

*Mu» Dc B S04.U UIS.0.3.-1 

Dc BXna.8Np*BZp-BV0-BCO 
De TcaiUJLI2.M1*A_W 

iMuki Oe B SfM.'MULLT .0.3.-1 

DC 8Xna.B>*>.8Zp-BVCU8C0 
DC TouM-M?.M1*A_W 

»Nhed nr. H $04.*NBCD',0.1 1.-1 

Do 8 Xp» BNUBZp. 8VU BCp 
DO P»lU.TouM-U2-U10.Mn •( 
U12*A_B 

xNag Do B . N FtV.n 1 1 

Dc BXp*B**>*R7p*BVT>.aGp 
Dc PaaM.TouM-M2-MiO-Mi t -I 
M12*A_BWL 

iNegi Dc.B S04.'NEGX,0.1 1 .-1 

Dc BXo.BNkaZD.BVi.BCo 
Dc PasM.TouM.M2- M ! 0-M 1 1 -1 
Ml2.A_BWL 

xNgp DC.B S03.NOP.0.0 

DC BXna.aNna.aZTvi.SVfia.( 

Km 
Dc P-M.PaaM 

xNot DcB $03.*NOT.0,1l 

Dc BXin.B^.aZi^BVO.BCO 
Dc Pa»M.To_M-M2-Ml O-Ml 1 -J 
M12.A._BWL 
xOr Dc.13 502 t 'OR\l,3.4 

Dc DXn_.BNp-aZp.0VO.0C0 
Dc TouM-M?,M1»A_BWL 
Dc Ml,TouM-M1-M2-MlO-Ml if 
-Ml2»AJ)WL 

xOri Dc.e sos.'onc.o.o 

Dc DXna.BNp.QZp-.0V0.BCO 
DC Ml2.Tc.MM2M10M11 f 
M12.A._BWl 

xOrtC Dc.B sea.OR^c.o.? 

Do BXp.B^.BZp.BVp.BCp 

Do MI2.PmM.A_B 
■OriS Do.B W3/Ofll>S\0.6 

Dc BXp.8**>-eZp.8Vp^9Cp 

Do M12.PaaM.A_W 
xPta Dc.B S43,-PEA',0,11 

Dc BXna.BNna.BZna.BVna.1 
BCna 



PaaM.TouM-M 1-M2-M4-M5! 
•M12-.A _ 
xftawt Dc.B S03.RE5ET.O.0 

Dc BXna*BNnjN-aZna.BVn»*f 

BCna 
Dc P_8M.PasM 

*Rol Dc.B J03.'ROL'2,9.10.t1 

Dc BXna-Br^-BZc-BVO-BCp 
De M1,M1*A_BWl 
DC M12.M1*A_8W_ 
Dr PatM.TouM-M 1 -M744 1 0-J 
M11-M17.A_YV 

iROf OcB 5tl3.*ROfl\7.».l0.l1 

DC H <-.-- BNp*R7p- ■ 
DC M1.M1.A_BWL 
DC Ml2.Mi.A_8WL 
DC PuM.TouM-M 1 -M2-M 1 O- f 
M1!-M12.A_W 

ifloil Dc.B SO4.'ROXl'2.9.10.11.-t 
Dc BXp*Bf*>*BZ£>.BVO.BCp 
Dc M1.M1.A BWL 
DC M12.MUA BWL 
Dc PaiM.TouM-M I -M2-M I 0-f 
MM-M12.A rt 

»Row DcB JW. ROXR-^.J.IO.n,-' 
Dc BXc-.Bf*>B2p-BV0.BCp 
Dc M1.M1.A BWL 
Dc M12.M1.A BWL 

Dc P«-M,To-M-M:i-M2-Wio-J 

M11-M12.A_W 
aftta Dc.B lOa/flTC'.O.O 

De DXp-QNp.OZ&.0Vp.DCp 

Do PaaM.PaaM 

*Flv Dc.B $03.'BT=r.0JJ 

Dc ex^B^fc-8Zp-8Vp>BCp 

Dc PaaU.PasM 
«Rt« Dc.B $O3,'HTS\0.0 

DC 8Xna.BNna.BZna.8Vna*i 
BCna 

Dc PmU.PkM 
■Seed Dc.B S04. , S8CD'.1,1.2 

Dc BXp.BfJUBZp-BAA.BCp 

Dc M1.Mt.A_B 

DC M5.M5.A_B 
KSCO Dr B SOV5ec\0.11 

DC RXna.BUruu>R7na.BVna.f 
BCna 

Dc Pa»M,TouM-M_'-Mia-Mll-J 
M12*A_B 

*Slup Dc.B |O4.*STOP\026.- 1 

Dc BXp.BNp^2>.BVp.BCp 
Dc PaaJJ,M12 

jtSub Dc.B 503.'SUB\1.3»M»q3.4.-1 
Dc 0Xp-B**>B2p.0V|>.GCp 
DC TouM.MWA BWL 
Dc M1,TcnjM-M1-M2-M10-MllJ 
-Ml 2- A BWL 



*Suba Dc.B S04.'SUBA'.0.5,-1 

DC BXna.BNna-BZna-BVr*.J 

BOm 

Dc TouM.M2.A_W.A_l 
xSutt Oc.B 504/ SUBr. 0.6.-1 

Do BX^B^BZp-BVp.BCp 

Dc M12.To_MM2M10M11 I 
M12.A_BWL 
xSufcq Dc.B $04,-SUBO , ,o 1 « .M»gi ,-1 

Dc BXp.BNp.BZp.BVp.BCp 

Dc M12.Tc-M-M10-M11.Ul2j 
.A_8WL 
x Sub it Dc.B S04/SUBXU.1.2 

Oe BXp.BNp.aZp.8^- PCp 

Dc M1.MUA 9V/L 

De MS.M5+A_BWL 
■Swap Dc.B SM/SWAP' ,0.16.-1 

DC BXr*.BNp.BZp-BVO+8C0 

Dc PasMAinA W 

xTm Dc.B S03.-TAS-.0.11 

Do BXna.BNp-BZp-BVO.BCO 
De PaaM,TouM-M2-Mi o-mi i -I 
M12*A_B 
-Tiap Dc.B SC-t/THAP-.C.SO.-l 

De BXna-BNna-*BZna-BVna-J 

BCna 
DO P-SM.U12 
*Tr*pv De R «D5.'THAPV.0.0 

Dc RXna*RNna«&Zr_.BVna.f 

BCna 
Do PasM.PasM 

iTn Dc.B »3,'TST.0.11 

Dc BXra*BNpVBZp.BVO*BCO 
DC PasM.T0uM-M2.M10-M11-( 
M12+ABWL 
xUnK Dc B SC^.tlNLK.O.ai.-l 

Dc BXna+BNna+BZna.BVna.j 

BCna 
Dc PasM.M? 



; DWiftrtlona divano* 



taBM 



DCL 
Del 
Del 
DCL 
Del 
Dc.L 
Dc.L 
DcL 
DcL 
DcL 
Dc.L 
DcL 
DcL 
DcL 
DcL 
DcL 



aW»00OO0.SCOOOO050 
S0O0O00S0J00001 100 
SO00008 AA AOOOO0 1 55 
5000000 AAiOOW HOI 
$0000^02.5000045 1 4 
SOOOOA2AO.S00015140 
S000228 A0.SO0O5 1 440 
S0002BAOO.S00014560 
S0028A2A0^00545140 
S008 A23$0 .5004530 7C 
SOOA2FFD6.S1451 FEA9 
S2A26F D45.S45 1 5FAA3 
SA20 AFD45.S5 1 00 FAA3 
S2A007D4C.S14007AAA 
S0A003D44 f SO500lAAfl 
SO2800DD0.S01O0OG&0 



r^V**»ai vUiP 




DcB 


62.62.7.243,3 


De.B 


103.182.13,134 


DcB 


106.108.193.162.16 


DcB 


67,00.6,7,4 


DcB 


97,121,24,134 


DcB 


10S 10B 277 166 


Dc.B 


j .59. 7. 22 7.0 


Dc.B 


Q0.0.4a.6 


Dc B 


108 1QR 711 131 774 


Dc.B 


14 61 fl SI 


Dc B 


1 08.0,96.26 


De.B 


752. 108^01.128 


DcB 


46.3.3.0.51 


OcB 


1.140.102204,6 


DC.B 


192.1116,193,132.46 


DcB 


67.67.431.3 


Oc.B 


15.224.254.134 


DC.B 


192.124.163.131224 


DcB 


62 62 35 227 39 


UtD 


1 WO.l £. It. 


CauVoFonolfa 


Dc 40.3.340264 




Dc 1.2253.162 


Rni *, ^ ■_-■*_• i T 
nobiwji 1 1 em 99 1 


Dc ?5£ 10 ?B4 230 


ReclSv»1aA«a2 


Dc 284.16.208.223 


RoctContiglaa 


Dc 254.1,296,15 


R«ctOo-t 


Dc 267,223299,255 


neclDealPomi 


Dc 214,166,221 ,279 


PaaTitta 


Do 


Cursaurl 





Oc tuo70,$ooso.5oo4a,soo2a 

DC i7FF2A60O9A7FC9.S0625 

DC 5O7C3.S0421iO3C3j0lFE 

DC SOCOO.SOOOO.50000^0000 

Oc SO020,$0070.50078.$O03C 

Oe STFFEJFFFFJTFFFJOFFf 

Oe $O7FF507FP,$03FF.S01 FE 

Dc JOOOO^OOOOJfJOOO^OOOO 

Oc 5.0 



Cuimiu'2 



De SCOC0.S014050180.S3O7C 

Dc S7FD6^FEA8,$FD45.$F*A3 

Do tFD45.SFAA3.S7D4e.S7AAA 

Do 5305441 AAA ,SDDOC,S0660 

Dc SO0C0.S0lC0 l 50160.$3D7C 

Do t7FFE4FFIFF,5FFFF.SFFFF 

Do $FFFF^FFFF47FFE47FFE 

Do J3FFCilFF840FF040660 

DC 0.8 



A 



Ccs deux petits programmes, qui ont dtd 
utilises pour la mise en pages du numlro 
26 (litre de 1'ariicle 'Lissajous* el 
Editorial), montre qu'il est possible, 
grace a la deTiniiion de l'affichage du 
Macintosh, d'oblenir des images de 
quality avec des fonctions trigonomd- 
triques simples. 

Bien qu'il s ne soient pas tres longs, les 
deux programmes se trouvent, comme a 
raccoutumde. sur la disqucttc d'accom- 



Routine pour 'nolrcir' la 
barre des menus 

(incorporee aux programmes Bash} 

ScrnBaso ECU $824 
ScrwnRow EOU $106 
20780824 MOVEA.L ScrnBa$e,AO 
7013 MDVEQ tiW.DO 

32380106 BO hOVE ScreenRow.D 1 
WFCOOFF B1 MOVES t/$FF,(A0)r 
S341 SUBO m.D1 

66F8 BNZS 81 

51CSFFF2 DBRA DO.BO 
4E7S K7S 



pagnement dc ce numiro. Rappelons 
qu'il n'est pas ne"cessaire d'avoir le 
Basic Microsoft pour utilizer les pro- 
grammes Basic publi6s dans Pom's : 
une version 'RUNTIME' de la version 
2.00 se trouve sur chaque disqueile 
Pom's depuis le numcro 23. 



Programme 'CourbeV 

DEFINT A-Z:DTH C (1 S) :P1 f-3.1426:F 
OR 1=0 TO lb :READ C ( 1) :NKXT:W 
INDOW 7,"", tO r ?0) - (5T? r 34?) r 3i 
HIDECURSOR tBACKPAT VARPTRfC 
(12)) :A!-VARPTfttC{0) ) :A! :CLS:P 
ENHODB 2 

DATA 6h2 078,lti824.iih7023,th3238,&h 
106, thlQFC,thFF.th534l.th66F8,Sh 
52 CB, ihFFFl, th4F?S t -1,-1,-1, -1 

FOR I!*0 TO PI!'2 STEP .001:X=256 
+1*5* {90'COStT ')-1 1Q*SIN(I !)) ■ 
Y*150+, 7* (90'SXN(8'Xl)-(120'CO 
S(I!)l):IF C THEN PRESET (X, Y) 
.-C-C-3 ELSE HOVSTO X,Y:LINET 
O SSK, i90:C9 

NEXT: BEEP :UH TIB NOT HOVSE(0):H 
END :MENU RESET : SHOWCORSOR 



Courbes 

Marianne Sutz 



Programme 'Courbe2' 

DEFINT A-Z:DIP4 Ai (520), G(15) tPIJ* 
3.242 6:FOR 1=0 TO : ; READ C(I) 
:NEXT:WINDON I, (0,20) (512, 
342) , 3 : HIDECURSOR: BACKPAT VA 
RPTR(C(12)J tA!=VARPTR(C(0) ) :Af 
:CLS 

DATA £h207B, &H82A, 6h7013, ih3238, £h 
206 f ih20FC, ShFF, 6hS34l , Sh66F3 , th 
52C8,£hFFF2, th4E7b, -2, -2 r -2 r -I 

FOR X*0 TO 255:XF X HOD 3 THEN N 
-3 ELSE N-l 

Y!-20'SIN(X'3'P1!/2S6) -X/2:FOR X2- 
TO 2bb STEP N : Y2 ! =20'SIN (X2 * 
3<PT!/?56)+X?/?:IF Y'.+Y?'.>=R: (2 
60-X*X2) THEN A! (2C0-X+X2) -Y! *Y 
2! .-PRESET (2S6-XrX2, 28 Q-A! (260- 
X*X2) ) 

NEXT : NEXT : BEEP : WHILE NOT NOOSE 
(0) : VEND .MENU RESET : SHOWCUR 
SOR 



52 
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Frederic Ivsic 



Loupe 



LOUPE est une routine ecrite en 
assembleur 6502 qui realise un 
effet de zoom sur une page 
graphique haute resolution. Elle 
agrandit et affiche en basse 
^solution une fenetre extraite de 
cette image. 

La fenetre superpos^e a I'image 
haute resolution se d£place avec 
les touches traditionnelles I, J, K 
et M. La vitesse de deplacement 
peut etre rnodifiee avec les 
touches 1 & 9. 

La touche G permet de passer en 
basse resolution en recopiant lc 
dessin situ£ dans la fenetre, afin 
d'en etudier les details. A 
l'inverse, la touche H fait revenir 
en mode haute resolution. 

Enfin, Escape permet de sortir 
du programme en revenant au 
niveau du Basic. 

Sur la disquette d'accompa- 
gnement, vous trouverez les 
fichiers : 

LOUPE.S source cn Big Mac 
LOUPE fichier 6502 executable 
LOUPE.DEMO petit 

progranune de demonstration 
LOUPE.PIC image graphique 

utilisee pour la demonstration 

Le programme sc charge en 
$7800 et utilise certaines routines 
de rinterpreteur Applesoft et du 
moniteur, en particulier HPOS et 
GBASCALC qui calculent les 
adresses respectives cn haute ou 
basse resolution d'une ligne 
donnee. 

Les octets 6 a 9 de la page zero 
sont egalement utilises. 

Aucun accds specifique au DOS 
3.3 n'etant utilise, LOUPE est 
done aisement portable vers un 
environnemem ProDOS. 

3 




J" 

44 PRINT "ET DE MEME rOUR GR, TAPES (C 
)" 

45 PRINT ; PRINT * 
I" 

46 PRINT "LES DEPLA CEMENTS ; J< >K" 
48 PRINT " rt" 

50 PRINT : PRINT "LA VITESSE DE DEPLAC 
EMENT VERTICALE": PRINT "PEUT VARIER 
DE 1 A 9" 

52 PRINT : PRINT "ENF IN, (ESC) POUR FI 
NIR, " 

53 PRINT : INPUT "TAPES RETURN. . "j RS 

54 PRINT DS'BLOAD TjOMPF.. P TC, A$7nOO m ; R 
EM CHARGE IMAGE JIGR 

55 REM — GH,NIW M1XTK , HTE R£S. — 
CO POKE 49239,0 

6? POKE 49734, U 
65 POKE 49232,0 
100 CALL 3Q12G 




Programme 

'LOUPE.DEMO' 

NB : Pour uliliser te programme, vous devez 
avnir xur la (tixqurne une imngr graphi/jue 
nominee LOVPEPIC. Cette linage est 
charge* d la Ugnc 54. 

5 REM — DEMO LOUPE — 

ft REM 

7 REM <F. IVSIC) 

n HEM 

9 LOMEMt 16394 

10 OS - CHRS HI 

20 PRINT D$*BLOAD LOUPE, A$7800 n 

30 HOME : HTAB 15; TNVERSF. ! PR TNT "DE 

MO-LOUPE"; SORMAL 
34 PRINT 

11 PRINT 

43 PRINT -POUR PASSER EN HGR, TAPEZ iii 



Pom's n° 26 



Source 'LOUPES' 

Assembleur Big Mac 



** 



LOUPE HGR->GR 



r.ivsic 



DOS TOOL KIT 



2 
2 
3 
4 
5 
6 
7 
8 

g ****** 
10 ' 

I I COORDX 

12 COORDY 

13 VARX 

14 VARY 

15 HPOS 

16 CBASL 

17 GBASH 
IS GBASCALC 
1 9 HOME 
PO RFJ.L? 

21 * 

22 L1GHGR2 



EQU 


S6 


sou 


57 


EQU 


se 


EQU 


59 


EQU 


SF411 


EQU 


$26 


EQU 


$27 


EQU 


9T8 4 f 


EQU 


SFC5S 


F.QU 


SFRF.4 



23 LIGHCR3 

2 A LIGHGP 
25 LIGCR 
2$ OCTHGH 

27 QCTHGR2 

28 OCTGR 

29 1NDQCT 

30 MASK 

31 Ml XT 

32 VITKSS& 

3.1 * 
34 ' 



EQU $F9 
re HGR 
EQU $FA 

HGR 
EQU $FB 
EQU SFC 
EQU SFU 
> 

EQU $FE 
t 

EQU $FF 
EQU $CE 

HGR 
EQU $CF 
EQU $D6 
EQU 907 
nr en Y de 



'Derniere ligne re-net 

'Avant-dcrnidrc li gnc 

'Premiere ligne HGR 
'Premiere ligne GR 
'Octet HGR f J IColonne 

'Octet HGR (6[Colonne 

'Octet GR (1 d 40) 
'Index flit dans octet 

'Cadre HCR Col. DSC 
"Vizesse de deplaceme 







BPL 


KEY 


'si non, retour a KEY 






AND 


i$7F 


BIT 7 A ZERO 


5 7 




TAY 






-. s 

4/G 












• 




HF T FCTtlHF 


nil fTAVTFR 


. ■ 










£ ' 

at 




rpv 


r * 4 f* 


* HnnnAn'Z — <F*iC> 5 


t g 






FTN 
rift 


E*J n W/* nrn/Tr.i/nw 
f ill uyi LtnuiK^ 


63 




cpy 


i$4~j 




D1 






A 1 








LDX 


too 


"BdSSB r6so : L"" ' C" 

UU hjdb * Uiltf* y w • Wl • 


- * 




cry 






(57 






BELL2 




B D 


Ax 


t-ri 


A - ■ ■ 




■" 1 




T1NF 


A? 




M 
/ w 






too 




7? 










72 




JSR 


HELL2 




7j 




JMP 


A 7 




74 


* 








75 


c in 


i nv 
tiUA 


son 

• J u 




ft 




STX 


SC0S1 


• Mode tr»xt 


77 




JSR 


BELL? 


'nrnrrrprn ' ' ' 


78 




JSP 


HOME 


'Efface ocran text 


79 




RTS 




'retour UAS1C 


80 


w 








Si 


* — 


Coordonnees Y 




Q ? 
n r 


* 








83 
84 


A2 


CPY 
BNE 


»$49 
A3 


- T' - /id ut 


05 




SEC 






36 




IDA 


VARY 




87 




SBC 


VITESSE 


* Wvt moduJahJe par i 



1 . . 9 



88 

89 A3 
90 
91 
32 
93 

94 

95 * 
96 



n cr e/nent do 
SW VARY 
*$4D 
A4 



1*9 



CPY 
RNF. 
CJ.C 

LDA 
ADC 



VARY 
VITESSE 
ncrement de 1 
STA VARY 

• Coordonn&es X 



M' = has 



• Mvt modulable par i 
9 



35 




ORG 


$7800 




97 « 








36 










98 A4 


CPY 


SS4A 


* 'J' = g-juc/ie 


37 


par 


LDX 


§20 


'tenet re au 


99 


BNE 


AS 




3d 




STX 


VARX 


'centre ecran 


100 


SEC 




■ Ici le mouvement es 


39 




LDX 


§96 






t constant, car 




40 




STX 


VARY 




101 


LDA 


VARX 


* ctfluJ-el s'tflfecLut; 


41 




i.nx 


41 


*ViC«#M - J 




par pas de 7 




42 




STX 


VITESSE 




102 


SBC 


41 


' bits (1 octet) sut 


43 


* 










1 'ecran graphique 


44 


KEY 


LDA 


VARX 




103 


STA 


VARX 




45 




STA 


COORDX 


• - tcansfetl tie VARX 


204 A5 


CPY 


t$4B 


* 'K' - droitc 






& 


VARY vers 




105 


BNE 


A6 




46 




LDA 


VARY 


COORDX & COORDY c 


106 


CLC 




' Idem ci-dessus 






ar 


cos dorniors 




107 


LDA 


VARX 




47 




STA 


CUURDY 


' sont modi ties apres 


108 


ADC 


91 








nhaqiif* visualisation 


109 


STA 


VARX 




48 




JSR 


LI 


' par 1.1 AC L2 


110 • 








49 




JSR 


L2 




122 A6 


CPY 


0531 


* J?C*J ' alors A? 


50 




BIT 


SCO 10 




112 


BCC 


A7 




51 




LDA 


SCO 00 


* Lect clavier 


113 


CPY 


t$3A 


'si y>-': * {code suiva 


52 




PHP 






nt 


'9'},alor3 A7 


53 




BIT 
cee 


SC010 
i RAZ 


' Indie, touche enfon 


114 

135 


BCS 
SEC 


A7 




54 




PL? 






116 


TYA 
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* 7 T 

117 




SBC 


9530 




*1 O C51 CIO 


1 till 




STA 


OCTHGR 2 


Orflntt tlCLftt 1 I 1 H UK 1 


118 




STA 


\I I Tl'l'CL' 

VI 1 r.—-~.. 




* - ' '~ la souse race £ on 






igne) 








dc 


$30 






i Oi 




CLC 






119 




JSR 


BELL2 






182 




LDA 


$00 




120 


* 










183 




STA 


I.TGGR 




121 


A7 


JMP 


KEY 




'Fin de la boucle fit? 


184 




STA 


OCTGR 


* 7*>7" ne~t&t GR 






lecture 






165 




STA 


INDOCT 




122 


it 










186 




LDA 


9520 


?£U aans ~~o 


123 




SAfJT EFFACE CADRE 


HGR (bis) — 


187 




STA 


$E6 


page i os .'..*-- 


12 A 












loo 


* 








125 


L2 


JSR 


CADREHGR 




•pour ef facer 2e 


189 


* -- DESS1N CADRE EN HGR 




12C 




RTS 






'cadre HGR apres ler 


190 


t 












appel a la routine 


1 91 




LDA 


L1GHGR 


* la y ^» 7 J AT 

J fr J !■ 1 I UC 1(7 


127 


t 










192 




LDX 


$00 




123 


* — 


CALCUL DE X ET Y It 


OCTET HGH — 


193 




LDY 


$00 




129 


* 










194 




JSR 


HP OS 




130 


LI 


SEC 






'principals. 


7 95 




JSR 


LIGNE 




J J3 




LDA 


COORDX 




'cuoiUonnees X, 


196 


* 








132 




SBC 


93 




*y octet HGR en 


197 




LDA 


LIGHCR2 


*DerniQre ligne 


133 




STA 


COORDX 




*haut a gauche 


1 98 




LDX 


too 




134 




SEC 






' tenet ro HGR de 


199 




LDY 


900 




135 




LDA 


COORDY 




* 6 oct x 24 lig 


200 




JSR 


HPOS 




136 




SBC 


$12 






201 




JSR 


LIGNE 




13 7 




STA 


COORDY 






202 




JMP 


SUITE 




138 












203 


at 








139 


— 


TEST LI Ml TE DE LA 


FENETRE — 


204 


LIGNE 


LDY 


OCTHGR 


* Trjce t JT3 it sn 


140 


* 










205 


LIG1 


LDA 


(GBASLJ , Y 


* couleur comp lenient a 


141 




IDA 


COORDX 




■a enzro u ec jj 






ire 






142 




DM1 


SI 






206 




EOR 


$?/F 




143 




CMP 


931 






207 




STA 


(GBASLJ , Y 




144 




BCS 


S2 




• 


208 




CPY 


OCTHGR 2 




145 




JMP 


S3 






209 




RF.Q 


I.I \»£ 




14 6 


SI 


LDA 


$00 






210 




INY 






147 




STA 


COORDX 






211 




BNE 






146 




BEO 


S3 






212 


LIG2 


RTC 






149 


S2 


LDA 


934 






213 


* 








150 




STA 


COORDX 






*1 7 A 

214 


SUITE 


LDA 


9 1 




151 


S3 


LDA 


COORDY 




'x entr v ec t o t 






VGC 






152 




CMP 


$243 




* 1167-191-24) 


21b 




cph 

-> 1 >» 




1 p iiia siiuti jdu*j uvui 


153 




BCS 


S4 






21 6 




L-UT 


fix. 1 iflirf 




154 




CMP 


$16/ 






21 7 




■J Jn 


rot ONF 




155 




BCS 


S5 






21 8 










156 




JMP 


S6 






"> 7 




r na 
LtUn 




* Colonnc -de droite £ 


15 7 


54 


LDA 


too 










VGC 






15-6 




STA 


COORDY 






i i/i 

££U 








* /»3 7T).3£fTt]6 0100 0000 


159 




BEO 


S6 






221 




LDY 


OCTHGR 2 




160 


55 


LDA 


$167 






222 




Ji>K 






161 




STA 


COORDY 






223 




« Jo 






162 


S6 


JSR 


CADREHGR 




'•utilise 


224 


ft 








1 63 




JMP 


TRANSF 




"CADREHGH seul pour e 


225 


LULUIrr. 


I. DA 




ildbC v' "'Co 






ttacer 






SS 










1 64 


* 










997 

£- 1- ' 




a nr 
t\U\* 


s 1 




1 6b 


r 


CALCUL PWCL1M1NAIRF. 




££0 




rtiA 






1 rtli 


■ 










££3 




TAX 






167 


CADREHGR LDA 


$22 




*Pag HGR plelne 


£JW 




TYA 






1 68 




STA 


Ml XT 






Oil 




PHA 






169 


H2 


LDA 


COORDY 




'Initialise 


232 




TXA 






1 70 




STA 


LIGHCR 




*lere lignc HGR 


233 




LDX 


900 




1 72 




CLC 








'1 I A 




LDY 


$00 




1 72 




ADC 


M1XT 






/J3 




JSR 


HPOS 




1 73 




STA 
9 


L1GHCR3 




* Avant-derniere lign 


7 7 H 
1 1 "7 




P1A 
TAY 






1 74 




ADC 


$1 






238 




LDA 


(GBASLJ , Y 




1 /5 




STA 


L1GHGRP 




*Derniere ligne 


239 




EOR 


MASK 




176 




LDA 


COORDX 






240 




STA 


(GBASLL, Y 




177 




STA 


OCTHGR 






241 




PLA 






1 76 




CLC 








242 




CMP 


L1GHCR3 




179 




ADC 


$5 






243 




BEQ 


COL3 
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74 4 

£11 




bne 


C0L2 




£ 1 J 


COLJ 


RTS 






74 f. 
1 


• 










• — TRANS F HCR -> CR — 




1 P O 

£4o 


■ 








£H J 






inn 

r 1/1/ 


.ere agziG 


1 c r\ 




LDA 


too 




2b 1 




JSR 


CADI 




£j£ 




INC 


LIGGR 




/ 1 1 




TNC 


I.TGHGR 




£ J1 










jet 
£UJ 


NEHLIG 


LDA 


LIGHGR 




£ JO 




LDX 
nt 


000 




JC 7 
£J / 




LDY 


too 


DC - Octet rtutt 


£jO 




JSR 


UPOS 




£jy 




LDY 


OCTHGR 




3 fid 




IDA 


(GBASL) , Y 




/DI 


BYTE 


ROR 




• On ' . ' ■ ' •> /hi' / ■) 






) de 




£0£ 




PHA 




"A hit* affit-h&< Mr* I 






•octet 




£OJ 




TYA 






1 £ A 
£01 




PHA 






i DJ 




PHP 






1 £ £ 

£O0 




LDA 


LICGR 








JSR 


GBASCALC 








LDY 


OCTGR 








LDA 


tSFF 


"!.*_..>- en ijn cL Lid 






nsferz 




270 




CPY 


• 00 




£ll 




BEQ 


514 




272 




CPY 


#39 




Oil 
£ f J 




BEQ 


52 4 




It A 




BCS 


Sll 








PLP 




Oil. 1 Jr r 


276 




BCS 


SlO 


' h I r ,0 - 


777 




LDA 


too 




278 


S7 (3 


STA 


(GBASLi , Y 




279 


Jt£ 


PLA 






£aU 




TAY 






£Ol 




PLA 






^ O .c 




LDX 
•un 


INDUCT 
octe-z HGR 


'DffCOMpfP 7 • rs d 


£0 3 




CPX 


/7 




eon 




BEQ 


se 




285 




INC 


INDOCT 




lot. 
£0 




INC 


OCTGR 




<a / 




BNE 


BYTE 




poo 


SB 


LDX 


too 


i J 'ocCflC /t^7 

r li ^ jijw^ d * w ^ ■» iiv 






R suivant sur 


J a I 1 nnn 


£Oy 




STX 


INDOCT 




£9U 




LDX 


OCTHGR 




291 




CPX 


0CTHGR2 




£V£ 




BEQ 


S9 




391 




INC 


OCTHGR 




3 Q 1) 

/ 




BNE 


NEHLIG 




£ y j 




LDX 


too 


" 7 1 rm •» itllTlMn^A 


7tf, 




STX 


OCTGR 




297 




LDX 


C00RDX 




nap 




STX 


OCTHGR 








IDX 


LIGGR 








CPX 


HIXT 




302 




BEQ 


CADXEGR 




30.2 




INC 


LIGGR 




303 




INC 


I. IGHGR 




30 4 




BNE 


NEHLIG 





306 Sll 


PLP 




307 




S12 


308 ' 






309 S14 


PLP 




31 


LDA 


tscc 


321 


.IMP 


SlO 


1 J £ 








LDY 


too 




craic plein 


J2 4 




MTXT 


325 


INX 




J i O 


TXA 




1J 7 


JSR 


CADI 


3 1p 
Jlo 


PTS 




Jl 9 " 






a?n ran) 

3£U WUfi 


JSR 


CJAASCAI.C 




gne 


de n * A 




LDA 


tS66 


J££ 


STA 


(GBASL) , Y 


323 


CPY 


039 


324 


BEQ 


CADS 


325 


INY 




326 


BNE 


CAD2 


32 J CAD J 


RTS 





* Demi ere ligne GR en 



trace en plein la li 



Pom's vous propose : 



Thierry Haurie 



Apple ][+, lie, l/c 



11 est inutile de prisenti le jeu de dominos; 
celui-ci b£n(ficie d'un graphisme tres soigne' 
(en couleur si vous disposez d'une carte "Chat 
Mauve") et les messages transmis par le 
programme sont t au choix, en Francois, en 
Italien, en Allemand ou en Anglais. 




G3 wmmawm 

t!==H 6=H t!*=!l 



305 



80.00 F TTC franco 
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Recapitulation 

'LOUPE' 

Apres avoir saisi ce coda sous 
moniteur, vous le sauvegarderez par 
BSAVE LOUPE, A$7800,L$1E7 

7600- A2 14 86 06 A2 60 66 03 
7808- A2 01 86 D7 A5 08 85 06 
7810- A5 09 85 07 20 96 78 20 
7818- 92 78 AD 00 CO 08 2C 10 
7820- CO 28 10 E8 29 7F A8 CO 
/828- IB FO 1H t:0 47 DO 08 A2 
7830- 00 8E 56 CO 20 E4 FB CO 
7838- 48 DO 17 A2 00 8E 57 CO 
784 0- 20 E4 FB 4C 8F 76 A2 00 
7848- 8E 51 CO 20 E4 FB 20 56 
7850- FC 60 CO 49 DO 07 38 A5 
7858- 09 E5 D7 85 09 CO 4D DO 
7860- 07 18 A5 09 65 Dl 85 09 
/86H- CO 4A DO Of 38 A5 08 E9 
7870- 01 85 08 CO 4B DO 07 16 
7R7H- A5 08 fi9 01 &5 08 CO 31 
786 n- 90 OD CO 3A BO 09 18 9fi 
7888- E9 30 85 D7 20 E4 FB 4C 
7890- OC 78 20 D6 78 60 38 A5 
7898- 06 E9 03 85 06 38 A5 07 
78A0- E9 OC 85 07 AS 06 30 07 
78A8- C9 22 BO 09 AC B9 78 A9 
/8B0- 00 85 Ub FO 04 A9 22 8b 
/8B6~ 06 A5 Of C9 F3 BO 01 C9 
78C0- A7 BO 09 4C DO 78 A9 00 
78C8- 85 07 FO 04 A9 A7 85 07 
78D0- 20 D6 78 4C 5C 79 A3 16 
7QD0- 85 D6 A5 07 85 FB 18 65 
78E0- D6 85 FA 69 01 85 F9 AS 
78E8- 06 85 FD 18 69 05 85 FE 
78F0- 18 A9 00 85 FC 85 FF 85 
J8F8- CE A9 20 85 E6 AS FB A2 
7900- 00 AO 00 20 11 F4 20 IB 
7908- 79 A5 F9 A2 00 AO 00 20 
7910- 11 F4 20 18 79 4C 28 79 
7918- A4 FD Bl 26 49 7F 91 26 
7920- C4 FE FO 03 C8 DO F3 60 
7928- A9 01 85 CF A4 FD 20 3B 
7930- 79 A9 40 85 CF A4 FE 20 
7938- 3B 79 60 AS FB 18 69 01 
1940- 48 AA 98 48 8A A2 00 AO 
7948- 00 20 11 F4 68 A8 Bl 26 
795 0- 45 CF 91 26 68 C5 FA FO 
7958- 02 DO E2 60 AO 00 A9 00 
7360- 20 D8 73 E6 FC E6 FB A5 
7968- FB A2 00 AO 00 20 11 F4 
7970- A4 FD Bl 26 6A 48 98 4Q 
7978 08 AS FC 20 47 F8 A4 FF 
7980- A9 FF CO 00 FO 42 CO 21 
7988- FO 3E BO 38 28 BO 02 A9 
7990- 00 91 26 68 A8 68 Ab CE 
7998- E0 07 FO 06 E6 CE E6 FF 
79AO- DO D2 A2 00 86 CF A6 FD 
79A8- E4 FE FO 04 E6 FD DO B7 
79B0- A2 00 86 FF A6 06 86 FD 
79DG- A6 FC E4 06 FO 10 E6 FC 
79C0- E6 FB DO A3 28 4C 93 79 
I9C8- 28 A9 66 4C 91 79 AO 00 
I9D0- A6 D6 EB 8A 20 D8 79 60 
79D8- 20 4 7 F8 A3 66 91 26 CO 
79EI7- 27 FO 03 C8 U0 F5 60 



Une nouvelle disquette Pom's : 



i 




Ordico 



Apple ][+. lie. Ite+, lie 



mm 



m 

>ble, U 



Destine aux amateurs de mots croises ou de Scrabble 
cette base de donn6es, due & Roland Jost, permet de 
trouver un mot de longueur donnee dont on ne connaTt 
que quelques lettres. 

Ordico contient plus de 15000 mots classes en 70 
rubriques, 

Recherches et affichages sont rapides : un fichier de 
1 500 mots est charge en moins de 1 secondes et 
exploit^ quasi-instantan§ment. 
II est bien sur possible d'ajouter des termes aux divers 
fichiers, de creer de nouvelles rubriques. 

Voici quelques rubriques : 

1 ere face : 

Acteurs, Artimaux, Armes/guerres, Auteurs amtiricains, Auteurs anglais, 
Auteurs frangais, Chimie, CinGastes, Coureurs eyefistes, 
Departements/regions, Dieux/deesses, Families ve'ge'tales, Femmes 
celebres, Hommes pofjtiques, lies, Jeux/sports, Mln&raux, Montagnes, 
Musicians jazz, Musicians, Parties du corps, Peintres Grangers, Peintres 
frangais, Rivferes/fieuves, Saints/saintes, Savants/inventeurs, 
Sculpteurs, vegdtaux, Vetements, Vi/les 
2eme face : 

Athletes, Boxeurs, Cantatrices, Cols, Cosrnonautes, Coureurs 
automobiles, Ddsorts, Detroits, Doctrines philosophiques, Drogues, 
Escrimeurs, Explorateurs, Gymnastes, Halterophiles, Judokas, Lutteurs, 
Maladies, Marechaux do France, Medicaments, Nagours, Pat'mours, 
Poissons, Prdsidents amdricains, Skieurs, Ski nordique, Unit&s, Villes 

olympiques 

Exemples : 

Un musicien dont le nom comporte 7 lettres, les 2eme 
et 5eme sont des 'E'. Tapez : -E- -E- - Vous obtenez 
instantanSment ; 

BENNETT DEBOECK DELEEUW GEVAERT LESUEUR PEDRELL PEETERS 

WELLESZ 

Dans les acteurs, -A E vous donnerait : 

CARETTE PALANCE RACETTE RAN DONE RAYMONE VALLONE 

et H- : 

CAUCHY CEECHI ENIGHT VAUGHN WRIGHT 

dans les femmes celebres donnerait 32 

noms... 



Disquette double face et documentation : 
200,00 F franco. Bon de commande page 74 
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CALLRWTS 




Patrice Neveu 



CALLRWTS est un petit module 
en assembleur qui facilite les 
appels i RWTS. Pour les 
profanes, RWTS est le point 
d'entree du DOS 3.3 qui permet 
d'accdder dircctcmcnt a unc 
disquette, soit en lecture, soit en 
fcriture (les fonctions de 
formatage ne sont pas 
exploities). 

Ce programme s*adresse h tous 
les debutants ddsircux dc sc 
familiariser avec la structure 
interne des disquettes, et qui ne 
disponent pas d'un tSditeur de 
secteurs. 

Son utilisation est tres simple : 

BRUN CALLRWTS 

charge la routine et initialise le 
vecteur de Tampers and qui e st 



utilise pour tous les appels. 
L'utilisation s'6 tend & tout Apple 
][. ][+» Ife ou //c exploit sous 
DOS 3.3. 

Les nouvelles fonctions dispo- 
nihlcs sous Applesoft sont alors : 

& DISK (slot.drive .volume) 
definition de la disquette de 
travail 

& RSEC (piste.secteur,adresse) 
lecture d'un secteur 

& WSEC (piste.sectenr.adresse) 
Venture d'un secteur 

& RTRK (piste,adresse) 
lecture d'une piste complete 

& WTRK (piste.adresse) 
Venture d'une piste complete 

Ici "adrcssc" signific l'adresse cn 

decimal de d<$but du buffer utilise : 256 
octets pour un secteur, 4096 octets pour 
une piste complete. 



& BELL 

& BEL1 : deux fonctions 
envoyant un "beep" different. 

& REPT (nombre/'chaine") 
fonction repetitive d'une chaTne 
de caracte.res, indiqu6e soit 
directement, soit sous forme 
d'une variable alphanuin&ique. 



Le source CALLRWTSiS est 
modifiable par l'assemblcur Big 
Mac. Le module objet se charge 
en $9000 et fixe Himem 5 cette 
valeur, mais son adresse 
d'implantation peut etre 
6ventuellement modified par un 
nouvel assemblage. 



Source 'CALLRWTS.SCE' 

Assembleur Big Mac 



i 

2 
3 
4 
5 
C 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 

ie 

19 
20 
21 



INSTRUCTIONS AMPERS 



* COPYRIGHT OCT0BRE 198 A 
* 

* * * a********************** 

'FONCTIONS: - REPT 

* - DISK 
- RSEC 

' - WSEC 

* - RTRK 

* - WTRK 

* - BELL 
' - BEL1 
* 



22 
23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

?? 

34 

3b 

36 

37 

38 

39 

40 

41 

42 

A3 

44 
45 



BIG MAC 



************** ************* 
* 



*************** 



* IMPORTANT: * 
*************** 



" NE PAH MODIFIER LE PROGRAMME 

* SOUS PEINE DE NE PLUS FONCT IONNER 

* CAB 1L PRESENTE DES ADRESSES 

' RF.SFR VEES 



MTMFM 
AIL 

AlH 
AAL 



$73 ;PIXB HIMEM 

S3C ; SAUVEGARDE DE 

TRANSMISSION 
S3D ;DE PARAMETRES 

042 ; ZONE DE SAUVEGARDE 
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46 


A4H 




S4J /AVANT L'APPEL DU 


90 


' FIXE 


HI MEM 








SQl/S -PROGRAMME 


91 








47 


LINNVM 


— 


$50 /REG1STRE 16 BITS 


92 


r 






48 


VARPNT 


• 


$83 /ADRESSE DE LA 
DERNIERE VARIABLE 


93 




LDA 
STA 


isno 
HIMEM 


49 


CHRGET 


- 


$B1 ;PR0CHA1N CARACTERE 


95 




LDA 


i$90 


50 


Hwrs 




S3D9 ; LECTURE /ECR1TVRE D'UN 
SECTEUR 


96 
97 


* 


STA 


HIMEM* 1 


52 


PTRGET 




$DFE3 ; RESULTAT DE CETARYFT 


98 




52 


FRMEVL 




$DD76 /EVALUATION DE TXTPTR 
$DD67 /EVALUATION DE TXTPTR 
ET RANGEMEUT DANS LA FAC 


99 


» MEMORISE 


SLOT * t,R7VF. 


53 


FRMNUM 




100 
101 








54 


CHKOPN 




SDEBB / TXTP TR POINTE T'TL 
SUR ( 


102 




LDA 


SNUM1 6 
SLOT 


55 


CHKCLS 


- 


SDEBB /TXTPTR POINTE T'lL 
errs I 


103 




STA 
I. DA 


NUMSLT 
DNUM 


56 


CHKCOM 




SDEDE /TXTPTR POINTE T'll 


105 

i nc 
I I/O 




STA 
RJS 


NVMDRV 


57 


CON TNT 




SE6FB /CONVERT IT LE FAC EN 
UN SEUL OCTET 


707 
108 


* 






58 


AY IN 


■ 


SE199 /REND ENT1ER LE FAC 


109 


■ 






59 


GET ADR 


= 


SE752 /TRANSFORME FAC EN 


110 








60 


OUTDO 




ENTIER A 2 OCTETS 


111 


* INTERPRETATION CMDE ' 


= 


SDB5C /AFFICHE 
I.'ACCUMULATEUR A 


112 
113 








61 


STROUT 




$DB3A /AFFICHE LA CHAINE 


114 


* 












POL NT EE eAR (Y, A) 


115 


INTERPR 


LDX 




62 


TXTPTR 




SB8 /ADRESSE DU DERNIER 


116 




STX 


CMD 








CARACTERE OB TEN U PAR CHHGET 


117 


INTER 1 


LDY 


isoo 


63 


CMD 




$19 


118 


T.OOP1 


LDA 


CTBL.X 


64 


AMPER 


: 


$3F5 /ADRESSE DE 6 


119 




BEQ 


TROUVE 


S5 


SHUM16 




SB7E9 /ADRESSE NUMERO DE 
SLOT 


120 
771 




CMP 
BEO 


9SFF 
ERREUR 


66 


DNUM 


— 


SB 7EA /ADRESSE NUMERO DE 
DRIVE 


122 
123 




CMP 
BNE 


i TXTPTR), Y 
SUTVANT 


67 


ADDON 


= 


SD998 /AJOUTE 1 AU REGISTBE 
Y 


124 
125 




INY 
INX 




68 


SNTX 




SUEC9 /SYNTAX ERROR 


126 




BNE 


LOOP1 


69 


PRBYTE 


= 


SFDDA /AFFICHE A EN DEUX 
CN1FFRES HEXA 


127 
128 


ERREUP, 
SUIVANT 


JMT 
INX 


SNTX 


to 


SPKR 


- 


SC030 /STIMULE I.F. HAUT 
PARLEVR 


129 
130 




LDA 
BNE 


CTBL,X 
SUTVANT 


71 


VAR 


— 


S0478 


131 




INX 




12 


SETTRK 




SBE95 /LECTURE ALLOCATION 
DES PISTES 


132 
113 




INC 
BNE 


CMD 
INTER1 


73 


RWLANG 




SC0B8 


134 


TROUVE 


JSR 


ADDON 


74 


* 






135 




ASL 


CMD 


75 


* 






136 




LDX 


CMD 


76 




CRC 


S9000 


137 




LDA 


ATBL+1,X 


/ 1 


■r 






IJO 




PHA 




78 








139 




LDA 


ATBL.X 


79 


#»*#*******«■#*##»##**# 


140 




PHA 




BO 


* INITIALISE 


t * 


141 




RTS 




81 


*•**********»**#***!*** 


142 









81 


* 






143 


t 






83 


It 






144 








84 


ENTR 


IDA 


i<INTERFR 


145 


* TABLE 


DES C0MMANDE5 * 


85 




STA 


AMPER* I 


146 




86 




l,DA 


9> INTERPR 


147 


* 






87 




STA 


AMPER i 2 


148 


* 






88 


# 






149 


CTBL 


ASC 


'REPT ' 


89 




150 




HEX 


00 



/ADRESSE BASSE 
/ADRESSE HAUTE 



DERNIER NUMERO DE 



; DERNIER DRIVE UTILISE 



Recapitulation 
'CALLRWTS' 

Apres avoir saisi ce code sous 
moniteur, vous le sauvogarder&z par 
BSAVE CALLRWTS.A$9000,L$23C 



9000- 


A9 


IF 


8D 


F6 


03 


A9 


90 


8D 


9040- 


E6 


19 


DO 


D>F 


20 




D9 


06 


9000- 


F7 


03 


A9 


00 


85 


73 


A9 


90 


9048- 


19 


Ah 


19 


UD 


7E 


90 


46 


BD 


9010- 


65 


74 


AD 


E9 


B7 


8D 


ia 


91 


9050- 


7D 


90 


48 


GO 


52 


45 


50 


54 


9018- 


AD 


EA 


B7 


8D 


19 


91 


60 


A2 


9058- 


00 


44 


49 


53 


4B 


00 


52 


53 


9020- 


00 


86 


19 


AO 


00 


DD 


54 


90 


9060- 


45 


43 


00 


57 


53 


45 


43 


DC 


9028- 


F0 


1A 


C9 


FF 


F0 


08 


Dl 


D8 


9068 


S2 


54 


52 


4B 


00 


57 


54 


52 


9030- 


DO 


07 


C8 


E8 


DO 


EF 


4C 


C9 


9676- 


4B 


00 


42 


45 


4C 


4C 


DO 


42 


9038- 


DE 


E8 


BD 


54 


90 


DO 


FA 


E8 


9078- 


45 


4C 


31 


00 


FF 


E3 


90 


35 



Pom's n° 26 



151 




ASC 


•DISK' 




P09 


LDA 




152 




HEX 


00 




210 


BMT 


1 **** 


153 




ASC 


'ftSEC ' 






JMP 


FRMFVT, 


154 




HEX 


00 






iny 
i-U I 


W v l/U 


155 




ASC 


'WSEC 




7 7 ? 


r na 
LtUr\ 


/VARPNTt Y 


156 




HEX 


00 




P14 

fill 


STA 


AIL 


157 




ASC 


'RTRK' 




7 I 5 


1 NY 
1NZ 




158 




HEX 


00 




PI 6 
CIO 


T DA 


/VARPNTt Y 


159 




ASC 


'UTRK ' 




777 


PHA 




160 




HEX 


00 




71 fi 

* to 


TNY 




161 




ASC 


'BELL ' 




219 


LDA 


(VARPNTt , Y 


162 




HEX 


Off 




220 


STA 


A4H 


163 




ASC 


'sz::.: ' 




271 


PLA 




164 




HEX 


00 




222 


STA 


ML 


165 




HEX 


FF 


•FF 3 FIN DE LA TABLE 


223 


RTS 




166 


n 








224 * 






167 


t 








225 ************************** 


16/1 


A TBI. 


DA 


REPT-1 




226 9 POINT 


V 'ENTREE DE REPT ■ 


169 




DA 


DTSK-1 


rADRESSE FONCTION DISK 








1 70 




DA 


RSEC- 1 


/ADRESSE DE READ 


228 * 












SECTOR 




279 * 






171 




DA 


WSEC-1 


/ADREESE DE WRITE 


230 REPT 


JSR 


CllKOPN 








SECTOR 




231 


JSR 


FRMNUM 


1 72 




DA 


RTRK- 7 


/ADRESSE DE READ TRACK 


232 


JSR 


CON INT 


173 




DA 


WTRK-1 


/ADRESSE DE WRITE 


233 


STX 


FINTBLE 








TRACK 




234 


JSP 


CHKCOM 


1 74 




DA 


BELL- 7 


;SON DE CLOCHE 


?35 


JSR 


ZEROA7L 


1 75 




DA 


BEL1-1 


/SON DE CLOCHE CRAVE 


236 


LDA 


AIL 


176 


# 








23 7 


BEQ 


FCHKCLS 


I 77 


* 








238 


LDA 


FINTBLE 


178 


FINTBLE 


HEX 


00 


/FIN DE LA TABLE DES 


239 


BEQ 


FCHKCLS 








CGM4ANDES 




240 REPTO 


LDY 


9S00 


1 79 


'/h'HOA ? /. 


LUA 


0SOO 




24 7 


LDA 


AIL 


180 




ST A 


AIL 




242 


STA 


A1U 


181 




JSP 


S0OB7 




243 STREPT 


LDA 


(A4L), Y 


18? 




CMP 


4 $22 




244 


JSR 


OUTDO 


183 




BNE 


ECTXT 




245 


INY 




181 




INC 


TXTPTR 




246 


DEC 


Ala 


185 




BNE 


MAXSLT 




247 


BNE 


STREPT 


186 




INC 


TXTPTR* 1 




248 


DEC 


FINTBLE 


187 


HAXSLT 


LDA 


TXTPTR 




249 


BNE 


REPTO 


7 88 




ST A 


A4L 




250 FCHKCLS 


JMP 


CHKCLS 


189 




LDA 


TXTPTR+ 1 




251 






190 




STA 


A4H 




252 






191 




LDY 


$$00 










192 


RCESLT 


LDA 


(TXTPTR) , Y 




254 * TABLE 


I.O.B. * 


193 




CMP 


957? 










194 




BEQ 


VAR3 




256 






195 




1NY 






257 






196 




BNE 


RGESLT 




258 DEBUT 


HEX 


01 


197 


VAR3 


STY 


AIL 








07 


198 




CLC 






25$ NUMSLT 


HEX 


00 


199 




TYA 






260 NUMDRV 


HEX 


00 


POO 




ADC 


TXTPTR 




767 VOLUME 


HEX 


00 


201 




STA 


TXTPTR 




262 PISTE 


HEX 


00 


202 




LDA 


ssvo 




263 SECTEUR 


HEX 


00 


203 




ADC 


TXTPTR f 7 




264 TABLE 


HEX 


?8 


204 




STA 


TXTPTR* 1 




265 


HEX 


91 


205 




JMP 


CHBGET 




266 BUFF 


HEX 


00 


206 


ECTXT 


JSR 


PTRGET 




267 BUFFI 


HEX 


00 


207 




LDA 


$81 




268 


HEX 


00 


208 




SMI 


FRMEV 




269 


HEX 


00 



,-PARAMETRE DOIT ETRE A 



9080- 91 B5 91 C7 91 EA 91 Fl 
9088- 91 05 92 20 92 00 A9 00 
9090- 85 3C 20 B7 00 C9 22 DO 
9098- 2A E6 B8 DO 02 E6 B9 A5 
90AO- B8 85 42 A5 B9 85 43 AO 
90A8- 00 Bl B8 C9 22 FO 03 C8 
90BO- DO Fl 84 3C Iff 98 65 B8 
90B8- 85 B8 A9 00 65 B9 85 B9 



90C0- 4C Bl 00 20 E3 DF A5 81 

90C8- 30 04 A5 82 30 03 4C 76 

90D0- DD AO 00 Bl 83 85 3C C8 

90D8- Bl 83 48 C8 Bl 83 85 43 

90E0- 68 85 42 60 20 BB DE 20 

90E8- 67 DD 20 FB E6 8E 8D 90 

90F0- 20 BE DE 20 BE 90 A5 3C 

90F8- FO 1A AD 8D 90 FO 15 AO 



9100- 00 A5 3C 85 3D R7 47 70 

9108- 5C DB C8 C6 3D DO F6 CE 

9110- 8D 90 DO EB 4C B8 DE 01 

9718- 00 00 OO 00 00 28 91 00 

9120- OO 00 OO OO 00 OO 60 00 

9128- OO 01 EF D8 AO 17 A9 91 

9130- 4C D9 03 00 00 00 20 BB 

9138- DE 20 67 DD 20 FB E6 EO 
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270 MODE 


HEX 


00 


7 75 




TMTt 
iJCLt 


- . . - XiJ 


271 CODERR 


HEX 


00 


111 
J J J 


TPcrn rcjf 


JSR 


CHKOPN 


272 


HEX 


00 


7 7 d 
J JH 




TCO 


.,, . , v , 

r jst a* \ji> 


2/3 


ftTS 










CONINT 


274 


HEX 


00 


7 7£ 
JJb 






a t CTE" 


275 






7 7 7 




TCO 

. — - 




276 






1 1 o 
J JO 


t* vrn rev 






277 ****************** 


7 70 




TCO 


CONINT 


278 * TABLE 


DEVICE * 










279 **»Hii"i*'f **** 


14 J 




JSR 




280 






14? 




JSR 


FRMNUM 


281 






341 




JSR 


GETADR 


282 


HEX 


00 


144 




LDA 


LINNUM 


283 


HEX 


01 






STA 


BUFF 


284 


HEX 


EF 







LDA 


LINNUM* 1 


285 


HEX 


08 


147 




STA 


BUFFI 


286 






14P 




JMP 


CHKCLS 


287 






3 A O 


w 






288 FARMS 


WY 


4$ 17 


7 ti n 
J3V 








289 


LDA 


i?91 


JO 1 


*************************' 


290 


JMP 


RWTS 


S'DZ 


- POIftfT 


D 'ENTREE DE RSEC * 


291 BUFF 4 


HEX 


00 


Til 








292 BUFF 5 


HEX 


00 


354 








293 BUFFB 


HEX 


00 


a k n 




LDA 


iSOl 


294 






J Ob 




STA 


MODE 


295 *************************** 


1 s / 

J J I 


NTRSEC 


JSR 


TESTDISK 


296 * POINT 


D 'ENTREE DE DISK ■ 


1SR 




JSR 


FARMS 


297 *************************** 


J J? 




BCC 


ERROR 


1 rt o * 






inti 

JDV 


PRERR 


JMP 


SD412 


299 * 






J a l 








300 DISK 


JSR 


CHKOPN 


Jb£ 








301 


JSR 


FRMNUM 


it, 1 

JbJ 








302 


JSR 


CON INT 


i e a 

364 








303 


CPX 


4S08 


365 




HEX 


00 


304 


BCC 


RETN 


t £ £ 

Job 


ERROR 


R'TS 




305 FAC 


JMP 


AY IN 


7 £7 
JO 1 








306 RETN 


STX 


BUFF4 


ICQ 


* 






JO/ 


rxA 




Joy 


>*«****« 


* * * #•■*•*********** 


308 


ASL 




370 


* POINT 


'ENTREE DE VtSEC * 


309 


ASL 




371 


****************** ******** 


310 


ASL 




372 








3U 


ASL 




373 


# 






312 


STA 


NUMSLT 


374 




LDA 


§ $02 


313 


JSR 


CHKCOM 


175 




STA 


MODE 


314 


JSR 


FRMNl/M 


97/T 
jib 




BNE 


NTRSEC 


315 


JSR 


CONINT 


j 7 7 
J / i 


NBRESECT 


LDA 


iSOF 


316 


CPX 


t$Q5 


7 7P 

J Its 




STA 


SECTEUP 


317 


BCS 


FAC 


J /I* 




CLC 




318 


STX 


BUFF 5 


son 
JHU 




LDA 


BUFFI 


319 


STX 


NUMDRV 


JUL 




ADC 


i$0F 


320 


LDA 


t$00 






STA 


BUFFI 


321 


STA 


BUFFB 


in 1 

JO J 


L.ECTECRT 


JSR 


PARMS 


322 


STA 


VOLUME 


JOi 




BCS 


PRERR 


323 


JSR 


SO0B7 


JO J 




DEC 


BUFFI 


324 


CMP 


i$2C 


inn 




DEC 


SECTEUR 


325 


BEQ 


VDISK 


lfi7 
JO ' 




BPL 


LECTECRT 


326 


JMP 


CHKCLS 


388 




RTS 




327 VDISK 


JSR 


CHKCOM 


389 


* 






32ft 


JSR 


FRMNUM 


390 








329 


JSR 


CONINT 


391 


* POIWT 


D 'ENTREE DE RTRK * 


330 


STX 


BUFFB 


392 








333 


STX 


VOLUME 


393 


* 







914 0- 


08 


90 


03 


4C 


99 


El 


8E 


33 


9180- 


35 


91 


BE 


1A 


91 


4C 


B8 


DE 


91C0- 


91 


90 


04 


4C 


12 


D4 


00 


60 


914 8- 


91 


8A 


OA 


OA 


OA 


OA 


8D 


18 


9188- 


20 


BR 


DE 


20 


67 


DD 


20 


FB 


91C8- 


A9 


02 


8D 


23 


91 


DO 


EC 


A9 


9150- 


91 


20 


BE 


DE 


20 


6 7 


UD 


20 


9190- 


F.6 


8F. 


IB 


91 


20 


BE 


DE 


20 


91D0- 


OF 


8D 


1C 


91 


18 


AD 


20 


91 


9158- 


F3 


E6 


ED 


05 


BO 


ES 


8E 


34 


9198- 


67 


DD 


20 FB 


E6 


8F, 


1C 


91 


91D8- 


69 


OF 


8D 


20 


91 


20 


2C 


91 


9160- 


91 


BE 


19 


91 


A9 


00 


8D 


35 


91A0- 


20 


BE 


DE 


20 


67 


DD 


20 


52 


91E0- 


BO 


El 


CE 20 


91 


CE 


1C 


91 


91 6*5- 


91 


3D 


1A 


91 


20 


B7 


00 


C9 


91A8- 


E7 


A5 


50 


8D> 


IF 


91 


A5 


51 


91E8- 


10 


F3 


60 


A9 


01 


3D 


23 


91 


9170- 


2C FO 


03 


4C 


B9 


DE 20 BE 


91B0- 


8D 


20 


91 


4C 


BB 


DE 


A9 


01 


97 F0- 


DO 


05 


A9 


02 


8D 


23 


91 


20 


9173- 


DE 


20 


67 


DD 


20 


FB 


E6 


8E 


91B8- 


8D 


23 


91 


20 


88 


91 


20 


PC 


97 F8- 


BB 


DE 


20 


97 


91 


AD 


1C 


91 
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394 


RTRK IDA 


t$0Z 




a t t 

Si 1 


API 


395 


STA 


MODE 


4 74 

He. H 


lnl 




396 


BNE 


TESTNTRK 




no v 
Lit. I 




397 


# 




AJ£ 


fWVB 


OCT T A 


398 






j *n 

4ir / 


SBC 




J J 7 


■ POINT D 'ENTREE OF. WTRK * 


428 


BEQ 


BELLI 


4/)fl 






47 9 


BIT 


SPKR 


401 


* 




4J0 


DEX 




402 


1 ■ J . . . LdJri 




H Ji 


OPitL 




403 


STA 


MODE 




D TC 




404 


TESTWTHK JSR 


CHKOPN 


4?? * 






AOS 


JSR 










406 


LDA 


sbcteur. 


4Jj 






407 


STA 




1 Jo ubLL 






1 i/O 


JMP 




43 1 BEL2 


LDA 


0S22 


4f)0 
1 U J 


# 




43ft BE1.3 


T.DY 


i$0? 


410 
1 m *J 






4Jy at.L4 


DEY 




411 


* 




A A I) 


□ 1IC 


OCT A 


412 


* 




J A 1 

•111 


or t 




413 






A A 1 






47 4 


* SON DE CLOCHE * 


A A t U V 1 1 
HHJ HSEL.L3 


UlLI 




4 7 5 




AAA 

HHH 


BNE 


BELLS 


42 £ 






A AC 


CD/"* 


ri 


47 7 


* 




A A C 


BKQ 


8EL2 


42S 


BELL LD* 


#$FF 


447 


BIT 


SPKR 


429 


ittXLi LDA 




448 


DEX 




420 


BELL2 LDY 


#52B 


449 


BNE 


BEL3 


422 


BELL 3 DEY 




450 


RTS 




422 


ONE 


BELL3 


451 


LST 


OFF 



9200- 8D IB 91 4C CF 91 A2 FF 9P18- F0 EE 2C 30 CO CA DO EA 9230- FD E9 01 F0 EE 2C 30 CO 

9208- A9 5B AO IB 88 DO FD 2C 9??0- 60 A2 50 A9 22 AO 02 88 9238- CA DO EA 60 

9?10- 30 CO An Sfl DO FD F.9 07 9??8- DO FD 2C 30 CO A8 88 DO 



f Editeur Plein Ecran 

Le Pacha 

Appl© //©, //©+, //€ 

' Listez vos programmes Basic en avant et en arriere. 

• Modifiez, inserez, effacez des caracteres en plein ecran 
sans relire les lignes. 

• Recherchez toute chaine de caracteres. 

• Choisissez vous-mime les codes de contrdle d'EPE. 

• Modifiez EPE : le fichier source est sur la disquette. 

40 et 80 colonnes, DOS et ProDOS 

\ 150,00 F TTC franco 

\ (bon de commande page 74) 
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avec 

Alaxn Idelon -Ri tton 



Un jeu 6ducatif pour les perils, tel 
est l'objet du prdsent programme. 
D s'agit d'apprendre les chiffres 
1 & 9 aux enfants des grandes 
classes de matemelles et du cours 
prdparatoire. De fa^on accessoire, 
il s'agit ggalement de comprendre 
comment utiliser le module 
HRCG du Tool-Kit d'Apple. 

Le principe est simple : un certain 
nombre d'animaux, compris entre 
1 et 9, sortent d'un chapeau 
(magique, bien sur !) ; l'enfant 
doit les compter et taper le bon 
chiffre ; un test complet 
comprend 10 essais. L'idee n'est 
pas neuve, mais les animaux 
int£ressent les bambins. 




compt 
animaux 



MiiimiiiMiiiiiiiininiimi 



LE CHAPEAU MAGIQUE 



m 




CONBIEN D ' ANIMAUX ? _ 



Le DOS Tool-Kit d'Apple, qui 
permet de mixer graphismes ct 
tcxtcs, dtait particuHerement 
adapte. Les fichiers : 

• Animaux. Set (affichage des 
animaux) 

• Gros.Chiffre.Set (affichage 
des chiffres) 

• Bonhommc.Sct (affichage du 
bonhommc MAXWELL) 

ont 6t€ obtenus avec le 
programme ANIMATRIX de la 
disquette Tool-Kit. 

II ne restait plus qu'a les animer 
grace a un programme 
fonctionnant sous I'cnviron- 
nement du module HRCG. 



Mode d'emploi 

Avec unc disquette contenant les 
sept fichiers suivants : 

COMP TER . AN1 MA UX 

FBOOT 

RLOAD 

HRCG 

ANIMAUX. SET 
BONHOMME . SET 
GROS . CHIFFRE . SET 

il sufflt de taper : 

RUN COMPTER. ANIMAUX 

Pour une bonne exploitation de ce 
programme, il est preferable 
qu'un adulte reste pres de l'enfant 
pour le guider, l'aider k utiliser le 



clavier et reconnaitre les touches 
correspondantes aux chiffres. 

ND.L.R. : Pour des rations de 
copyright, les fichiers RBOOT, 
RLOAD et HRCG ne figwentpas 
sur la disquette Pom's. II vous 
faudra done les y transferer, & 
partir de votre Tool-Kit, pour 
exicuter le programme. 
Le programme fonctionne 
6galement sans modification sous 
environncmcnt ProDOS. En 
revanche, les fichiers ci-dessus 
devront itre extraits du Tool-Kit 
pour ProDOS diffust par Apple. 



Programme 

'COMPTER. A NIMA UX ' 



10 REM *** COMPTER. ANIMAUX **' 

100 LOMEM; 24576 

110 GOSUB 5010 

120 HGR : POKE - 16302,0 

130 DIM CO (9, 20} 

110 NR - 

IbU COSUB 8010 

160 COSUR 7070 



170 COSUB 4000 

180 COSUB 3000 

200 Ji£H *•< CORPS PRINCIPAL 

210 NN = INT ( RND (1) " 9 J r 1 

??0 A = INT f RND (1) * S) + 2 

710 FR = 

240 FOR J = TO NN - I : VTAB 10: HTAB IS: PRINT A 
N5(A):X - PEEK ( - 16336); FOR K - 1 TO 20: N 
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63 



250 

260 

270 

260 

290 
300 
310 
320 

$30 

340 
350 

360 
370 



380 
390 
400 
41 
420 
430 
440 
4bO 



EXT K: VTAB 10: 11TAD 19: PRINT WS 
X - PEEK ( - 16336) + PEEK ( - 16336} - PEEK 
( - 1 6336) PEEK / - 16336) 

VTAB COm, 2 * J): HTAB CO (UN, 2 * J * 1) : PR IN 
T AN$(A) : NEXT 

WAR 20: HTAB 2: PPT NT "COMB I EN D'ANIMAUX ? 

: POKE - 16368, 0: GET RES: PRINT RES 

IF RE$ < "2" OR RES > THEN PRINT GS: GOTO 

270 

RE - VAL (RES) 
IF RE < > NN THEN 340 
HTAB 2: PRINT CAS "0"CI $"BRAV0"CN$; 
POKE 769,0: POKE 773,5: POKE 777,1: POKE 790,1 
16: CALL 768 

FOR 1 e 1 TO 200? NEXT 1: HTAB 2! PRINT " 
"r GOTO 460 
FR B FR t I 

QV - INT t RND (1) " 61 * 218: POKE 769,16: PO 
KB 773,3: POKE 777,105: POKE 790, QV: CALL 768 
IF FR - 1 THEN GOSUB 2000: GOTO 270 
IF FR - 2 THEN HTAB 2: PRINT GSGSGSCIS n OUH OU 
H OUH! ! l n CNS; : VTAB 15: HTAB 3: PRINT CllS(NN); 
: FOR 1 - 1 TO 200: NEXT I: VTAB 21: HTAB 2: P 



PINT " 

IF FR = 3 THEN 
NN) : GOTO 270 

IF FR = 4 THEN 
N) ; GOTO 270 

IF FR - 5 THEN 
NN) : GOTO 270 

IF FR = 6 THEN 
NN) : GOTO 270 

IF FR * 7 THF.N 
Um : GOTO 270 

IF FR - 8 THEN 
NNf : GOTO 270 

IF FR - 9 THEN 
NNf : GOTO 270 

IF FR - 10 THEN 



": GOTO 2)0 
VTAB 15: HTAB 36: PRINT GSCHS f 

VTAB 15: HTAB 7; PRINT GSCHS (N 

VTAB 15: HTAB 32: PRINT GSCHS f 

VTAB 1 5 : HTAB 1 1 : PRINT GSCHS ( 

VTAH I5i HTAR 28: PRINT GSCHS I 

VTAB 15; HTAB i5; PRINT GSCHS ( 

VTAB 15: HTAB 24: PRINT GSCHS ( 

VTAB 19: HTAB 21: PRINT GSCSG 
SCHS(NN): FOR K = 1 TO bOO: NEXT K: VTAB 19: H 



460 
470 

480 
490 
500 

510 

520 

530 
540 

550 

560 

5 70 
580 
590 

600 

610 

620 
630 
640 
650 



660 
670 



TAB 21: PRINT WS 

FOR J - TO NN - 1: VTAB CO INN, 2 • JJ : 
0(NN,2 * J * 1): PRINT WS: NEXT 
FOR I ~ 1 TO 4: VT/iB 15: HTAB 4*1-2: PRINT 
WS: VTAB 15: HTAB 40 - 4 • I : PRINT WS: NEX 

T I 

NR * NR + 1 
IF NR < 10 THEN 210 

VTAB 3: HTAB 2: PRINT CVS: VTAB 23: HTAB 38: P 
RINT CWSCPS 

VTAB 5: HTAB 6: PRINT "TAPER ESC POUR TERM IN 
ER": VTAB 7: HTAB 18: PRINT "OU" 
HCOLOR- 1 : HPLOT 88, 28 TO 11 4, 28 TO 11 4, A? TO 
88,42 TO 88,28: HPLOT 87,27 TO 115,27 TO 115,4 
3 TO 87, 43 TO 87,27 

VTAB 9: HTAB 6: PRINT "TAPER R POUR RECOMMEN 
CER " .' VTAB 11: HTAB 19 

HCOLOR" It HPLOT 88, 60 TO 101,60 TO 101,74 TO 
88, 74 TO 88, 60: HPLOT 87,59 TO 102, 59 TO 102,7 
5 TO 87, 75 TO 87,59 

GET RS: IF ASC (R$) < > 27 AND RS < > "R" T 
HEN 550 

IF RS - "R" THEN NR - 0: PRINT CPSCYS:: GOSUB 
4000: GOTO 210 

PRINT COSCBSCYSCPSCOSCASCYSCPS 

VTAB 15; HTAB 17: PRINT "AU REVU1R" 

FOR I = 1 TO 20: VTAB 17: HTAB 20: PRINT BOS (6 

TO 20; NEXT K: VTAB 17: HTAB 20: PRl 



TO 20; NEXT K; VTAB 17: HTAB 20; PRI 
FOR X = 1 TO 20: NEXT K 



) 

FOR K ~ 1 
NT BOS (5) 
FOR K - 1 
NT BOS (4) : 
NEXT 1 

VTAB 17: HTAB 20: PRINT BUS (3) 

POKE 790,144: CALL 768: PUKE IS0,25b: CALL 768 
TEXT : HOME : PRINT "POUR UT1LISER UN AUTRE PR 

OGRAMME": PRINT ; HTAB 8: PRINT "EN TOOTH SF.CII 

RITE": PRINT 

PRINT "APPUYER SUR RESET PUIS TAPER 'FP'." 
END 



Fichier 

'ANIMAUX.SET 

Aprds avoir saisi ce codn sous 

rnoniteur, vous la sauvegarderaz par 
BSA VE ANIMAUX.SET,A$8AFF.L$300 



8AFF- 00 



8BO0- 


00 


00 


oo 


00 


00 


00 


00 


00 


8B08- 


00 


00 


00 


00 


00 


40 


70 


00 


8B10- 


00 


00 


40 


60 


20 


7F 


7F 


00 


8b18~ 


00 


00 


31 


71 


5B 


7F 


IF 


7C 


8B20- 


7E 


7F 


7F 


7E 


7C 


74 


14 


7F 


8B'28- 


IF 


7F 


7F 


IF 


JF 


2F 


40 


OS 


8B30- 


31 


IF 


00 


00 


00 


01 


02 


00 


8B38- 


00 


78 


FE 


06 


FE 
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// s'agit d'un systeme graphique 
double-haute resolution 4crit en 
Pascal. COGO vous permet de 
manipuler des graphiques 
grSce a un langage de 
description des objets - points, 
angles- et a I'emploi de 
fonctfons primitives de 
manipulation tr£s puissantes : 
cercle, tangente, 
intersections, paralteles, etc. II 
est ainsi possible de tracer des 
grilles, des cercles, des 
segments de droite, des 
tangentes communes a deux 
cercles, de calculer des 
distances, des angles... 

L'6diteur permet une saisie 
rapide du langage. Une 
instruction COGO peut-Stre 
executee des la saisie pour 
faciliter la mise au point, ou au 
sein d'un programme. 



Vous over un Apple lie avec Chat Mauve ou un lie ? 

Vous avez Pascal 1.2 ? 



Utilisez 



COGO 



Par Nicolas Monlsarrat 



Apple //e, //c 



Ce programme, destine & r6soudre 
des probl6mes de g6om6trie plane, 
comporte des instructions de stockage 
sur fichier afin de permettre la reprise 
d'un calcuL 



150,00 F TTC, franco 
Bon de commande page 74 
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1000 REM ""PAGE? 

1010 PRIST C0SCBSC0SCD$ 

1020 W - 5 

1030 FOR X - 1 TO NN 
1040 X - 34:Y - 20 

1050 I - 0; COSVB 2000:1 * J; CQSVB 2000 :X - X - 1: 
I - 2: COSUB 2000; IF X > 4 * (K - 1) * Z THEN 
1050 . 

1060 IF K < NN AND NN < > 2 THEN VTAB 10: HTAB A 

' K: PR TNT WS; 
1070 IF K < NN AND NN = 2 THEN VTAB 10: HTAB 4 ' 

K + 1: PRINT WS; 
1060 VTAB 5: HTAB 4 * (K ~ 1) * 1: PRINT CHS (K) 
1090 IF K > 1 THEN FOR I - 1 TO K - 1: VTAB S: HT 

AS 4 • (K - 21 * I: PRINT WS; NEXT I 
1100 W - W + 5 
1110 NEXT K 

1120 IF NN = 2 THEN VTAB Y: HTAB X ♦ 4 1 PRINT BOS 

(4) : GOTO 1 140 
1130 VTAB Y: HTAB X * 3 : PRINT BOS (4) 
1140 FOR W - 1 TO 500: NEXT W 

1150 PRINT C0$CA$C0$CD$CO5CB5 ; FOR I * 4 TO 13: VT 

AB ti PRINT CES: NEXT It PRINT COSCAS 
1160 RETURN 

2000 VTAB Y: HTAB X:GG « PEEK ( - 16336;: PRINT A 
NS(NN);: VTAB Y: PR TNT HQS (I);: FOR J - 1 TO W 
: NEXT : RETURN 

3000 REM **• EFFETS SONORES 

3010 FOR J - TO 49: READ SO: POKE 768 i l,SO: NE 
XT I 

3020 DATA 169, 0,133,24,169,5,133 
3030 DATA 25,169,1, 133,26,164, 2b 
3040 DATA 165,26,32,34,3, 73,255 
3050 DA TA 73, 208, 32, 34,3 
3060 DATA 136,208,241,230 
3070 DATA 26,16,235,96,44,48,192 
3080 DATA 166,24,134,27,170,202 
3090 DATA 208,253,198,27, 16,248 
3100 DATA 96 

3110 REM •** POSITION DES ANIMAUX 



3120 FOR 1-1 TO 9: FOR J - TO 1 - 1 : READ CO (I 
,2 * J): READ C0(l f 2 * J 4- 1) : NEXT J: NEXT I 

J 2 JO DATA 3, 19 

3140 DATA 6,11, 6,27 

3150 DATA 6,11,3,19,6,27 

3160 DATA 8,7,4* 15,4,23,8,3] 

3170 DATA 31,5,6,11,3,19,6,27,11,1? 

3280 DATA 8, 7,6, 11,4, 15,4,23,6,27,8,31 

3190 DATA 8,7, 6, 11,4, IS, 3, 19, 4,23,6,27,8, 31 

3200 DATA 11,5,8, 7, 6,11,4,15, 4,23, 6,27,8, 31,11,33 

3210 DATA 11,5,8, I, 6, 11, 4, 15, 3,19, 4, 23, 6, 27, 8, 31,1 

1,33 
3P?0 RETURN 

4000 REM CHAPEAU 6 ET01I.ES 

4010 HCOLOR- 5 

4020 FOR Y - 100 TO 140: HPLOT 120, Y TO 1 45, Y: NEX 
T 

4030 FOR Y ~ 96 TO SS: HPLOT 110, Y TO 155, Y: NEXT 
4040 VTAB 4: HTAB 2: PRINT VTAB 5: HTAB 38: P 

RTNT : VTAB 6: HTAB 6: PRINT **»3 VTAB 3: H 

TAB 35; PRINT VTAB 5: HTAB 9: PRINT 

VTAB 7; HTAB 39; PRINT 
4050 RETURN 

5000 REN **• INITIALISATIONS 

5010 ONERR GOTO 6010 

5020 TEXT r HOME : HGR :ADRS = 

5030 PRINT CHRS t4) "BLQAU RBOOT" i CALL 520 

5O40 ADRS = USR (0),"HRCG» 

5050 POKE 216,0 

5060 IF ADRS < THEN ADRS - ADRS f 65536 
5070 CS - ADRS - 3 ' 760; H1MEM; CS 
5080 DS - CURS (4) 

5090 PRINT DS n BL0AD ANIMAUX .SET, A"; CS 

5100 PRINT D$"BLOAD GROS . CHIFFRE . SET, A "CS * 768 

5110 PRINT D$"BLUAD BUNHUMME . SET, A"CS + 2 * 768 

5120 CH = INT (CS / ?56) :CL = CS - CH * 256 

5130 POKE ADRS * 7, CL : POKE ADRS + 8,CH: CALL ADRS 

* 3 

5140 RETURN 

6000 REM •*• TRAITEMENT ERREUR 
6010 TEXT 



6810- 


7F 


3F 


3F 


3F 


IE 


3F 


3F 


3F 


6818- 


33 


33 


33 


33 


33 


33 


33 


73 


6820- 


00 


00 


00 


00 


00 


00 


40 


60 


6828- 


70 


30 


30 


30 


30 


30 


30 


20 


6830- 


00 


00 


00 


00 


00 


00 


00 


i Q 


6838- 


00 


00 


00 


00 


00 


00 


00 


01 


6840- 


OJ 


UJ 


03 


03 


03 


03 


03 


01 


6848- 


58 


oc 


- 


03 


01 


00 


00 


00 


6850- 


5E 


7 





00 


00 


00 


00 


00 


6858- 


00 


00 


00 


00 


00 


00 


60 


70 


6860- 


00 


00 


00 


00 


00 


00 


60 


?$ 


6868- 


40 


00 


00 


00 


00 


00 


00 


00 


6870- 


00 


oc 


cc 


00 


00 


00 


7F 


7E 


6878- 


00 


00 


00 


00 


03 


0E 


7C 


70 


6680- 


01 


02 


06 


0E 


1C 


38 


70 


SQ 


6888- 


10 


10 


18 


18 


18 


18 


18 


18 


6890- 


06 


oc 


18 


30 


40 


00 


00 


00 


6898- 


00 


00 


00 


00 


00 


00 


01 


} 


68AO- 


IE 


38 


40 


00 


00 


00 


00 


00 


68A8- 


00 


00 


00 


00 


00 


00 


7F 


IF 


68R0- 


00 


00 


00 


40 


30 


3C 


OF 


M 


68B8- 


20 


10 


18 


1C 


0E 


07 


03 


w 


68C0- 


02 


02 


OC 


06 


06 


06 


07 


07 


68C8- 


CO 


00 


00 


00 


00 


00 


00 


00 


63D0- 


00 


00 


00 


00 


00 


00 


00 





68D8- 


00 


00 


00 


00 


00 


00 


00 





6BE0- 


00 


00 


00 


00 


00 


00 


00 


00 


68E8- 


00 


00 


00 


00 


00 


00 


00 


00 


C8F0- 


00 


00 


00 


00 


00 


00 


00 


00 


68F8- 


00 


00 


00 


00 


00 


00 


00 


00 


6900- 


00 


00 


00 


00 


00 


00 


00 


00 


6908- 


00 


18 


3C 


3C 


3C 


18 


1C 


3E 


6310- 


3E 


3E 


3E 


7E 


7C 


3C 


3C 


3C 


6918- 


00 


00 


00 


00 


01 


03 


02 


00 


6920- 


7C 


6C 


6C 


4C 


4C 


OC 


OC 


1C 


6928- 


00 


00 


01 


01 


03 


03 


03 


) 


6930- 


00 


40 


60 


60 


CO 


40 


60 


70 


6938- 


00 


01 


03 


03 


03 


01 


01 


03 


6940- 


■~ 


7C 


7C 


78 


70 


70 


70 


70 


694$- 


03 


07 


07 


OF 


00 


IB 


33 




6950- 


30 


30 


38 


1C 


0E 


07 


06 


04 


6958- 


03 


03 


03 


03 


03 


03 


03 


07 


6960- 


00 





00 


00 


00 


00 


00 


% ■ 


6968- 





06 


OF 


OF 


OF 


06 


07 


OF 


6970- 


70 


;p. 


58 


58 


18 


58 


50 


A 


6978- 


IF 


3F 


67 


47 


07 


07 


07 


07 


6980- 


CO 


00 


00 


01 


03 


02 


00 


00 


6988- 


00 


00 


00 


40 


70 


30 


30 


00 


6990- 


OF 


0E 


OF 


07 


07 


06 


06 


0E 


6998- 


00 


OC 


IE 


IE 


IE 


OC 


1C 


3E 




69A0- 


00 


oo 


00 


00 


40 


60 


20 


00 


69A8- 


3E 


3E 


3E 


3F 


IF 


IE 


IE 


IB 


b9BU- 


00 


00 


40 


40 


60 


60 


60 


70 


69B8- 


IF 


IB 


IB 


19 


19 


18 


18 


1C 


69C0- 


00 


40 


60 


60 


60 


40 


40 


go 


69C8- 


00 


01 


- 


01 


0.3 


01 


03 


07 


6900- 


60 


70 


70 


78 


58 


6C 


66 


6P 


69D8- 


00 


00 


00 


00 


00 


00 


00 


00 


69E0- 


00 


00 


00 


00 


00 


00 


00 


00 


69E8- 


00 


00 


00 


00 


00 


00 


oo 


00 


69F0- 


00 


00 


90 


00 


00 


00 


00 


00 


69F8- 


00 


00 


00 


00 


00 


00 


00 


00 



Pom's n° 26 



6020 PRINT "ERREUR DANS RLOAD OU RBOOT" 
6030 POKE 216, 
6040 END 

7000 REM DEFINITION DES 

7010 REM FIGURINES 

7020 ANS(l) = CAS * "1 " + CBS + "ABC" * CCS * "DEF" 

t CCS + "GHT" t CDS t CAS f "0" 
7030 AN${2) = CAS * "1" * CBS * "JKLH" * CCS + "NOP 

0" * CDC f CAS I "0" 
70^0 AN$(3) - CAS i "1" I CBS ' "R" i CllRS (101) * 

CHRS (102) + CDS + CA$ + "0" 
7050 ANS(4) - CAS * "1" * CBS * ■ S ■ * CCS * "TV " 
+ CCS * n VW ■ # CDS * CAS * "0" 

7060 aws($; = cas + "J n + cas * n xyz n + ccs * cnrs 

(97) * CHRS (98) * ■ ■ + f CDS ♦ CAS + "O" 
70 70 ANS(6) - CAS f *X'» * CBS * CW?S fl 03) + CHR$ 

(104) f CHRS ri05J * CCS t CHRS (106) * CR 
RS (107) t CHRS (108) * CDS f CAS * m Q n 
7030 ANS(7) - CAS I "2" I CflS I CHRS (109) I CFIRS 

(110) f- * ■ * CCS f CtfrtS (222; * CHRS (222; 

* ■ ■ * CCS * CHRS (113) * CHRS (114) * » ■ 

* CDS f CAS + "0" 

7090 ANS(B) - CAS # "2" * CBS * m * * CHRS (I25J + 
CHRS (116) + CCS * ■ " + CHRS fl J 7) * CHRS 
(118) + CCS # CHRS r22?2J + CHRS C229J * CH 
RS (220J + CDS f CAS * "0" 

7100 ANS(9) = CAS f "2- * CBS * " I " + CHRS (34) + 

"#* t CCS * "Si*" + CDS + CAS * "0" 
7120 W$ * CBS * " " i CCS f ■ " ' CCS i " 

» •* CDS 
/220 FOR I - 2 TO 9 
7130 J m 6 * (I'D 

7140 CHS (I) = CA$ + "2" + CBS * CHRS (JJ * J) * C 
HRS (34 * .7) + CCS + CHRS (35 + J) + CHRS (3 
6 + J) + CCS + CHRS f17 ♦ J) * CHRS (38 * J) 

* CDS + CAS * -0" 
7250 NEXT 1 

7160 CHS(O) - CAS f "2" f CBS * "WX" * CCS t "YZ" 4 
CCS > CHRS (91) * CHRS (92) *■ CDS * CAS * m 



0" 

7170 BOS(O) - CBS * CAS * "3" * CLS * " S " * CCS * 

"TV " * CCS * "W * f CDS + CAS * "0" 
/180 BOS(l) ■ CBS + CAS * "J" + CLS * "XY ■ * CCS + 

«Z0 " + CCS * "12 " * CDS * CAS * "U n 
7190 BOS (2) = CBS * CAS + "3" '4> CLS * " 34" * CC$ + 

*S67* + CCS + " 89" * CDS * CAS * "0" 
7200 BOS (3) = CBS t CAS + "SDAG" * CCS * "EBH" + CC 

$ + "FC ■ # CDS # CAS * -0" 
722 BOS (4) - CDS » CAS ' "SPAC" ' CCS ' "MBH" t CC 

S t "FC " i CDS f CAS * "0" 
7220 BOS (5) = CBS * CAS * "30AG" * CCS + "MBH" + CC 

S * "f'C " * COS * CAS + -0- 
7230 BOS (6) ~ CBS * CAS * "3NAG" + CCS * "MBH" + CC 

S t "FC " * CDS f CAS + "0" 
7240 RETURN 

8000 REM **• INITIALISATIONS 
8010 REM •** APPLESOFT 

8020 CAS - CHRS (1) :CBS - CHPS (2) :CC$ - CHRS 
;;CDS - CHRS (4) :CES - CHRS (5) :CFS - CHRS 
(6):C1S = CHRS (9) :CKS - CHRS (llf:CLS m CH 
RS (12):CN$ = CHRS (14) ! COS * CHRS (15/ :CP$ 
= CHRS (16): CSS - CHRS f2 9J:CrS ■ CHRS f20; 
S050 CVS = CHRS (2?):C»S = CHRS (23) :CY$ = CHRS 
(25):CZ$ = CHRS ^2tfJ 

fi040 P2s - cos + CAS-.P2S - cos + css.-prs - cos * or 

S.-i^HS - COS ' CPS 
5050 KB - - 16384 ;G$ = C/iRS ^7; 

SOtfO PRIWT CPSCKS: UTAB 11: VTAB 1: PRINT * LE CHA 
PiCAf MAGIQUE " 

8070 HCOLORb 1: HP LOT t O TO 0,191 TO 279,191 TO 2 
79,0: HPI.OT 1,0 TO 1,190 TO 278,190 TO 276,1: 
HPT/3T 1,0 TO 66,0: HPI.OT 1,1 TO 66,1 

8080 HPLOT 214,0 TO 279,0: HP LOT 214,1 TO 278,1 

8090 HC0LOR- 5; HPLOT 70,5 TO 210,9 

8100 POKE 230,64: HCOLOR~ 6: HPLOT 1,1: CALL 62454 

: POKE 230, 32 
8110 PRINT COSCBS: FOR I - 4 TO 13: VTAB I: PPINT 

CES: NEXT I: PRINT COSCAS 
8120 RETURN 



Fichier 

'GROS. CHIFFRES 
.SET 

Apfes avoir saisi ce cods sous moniteur, 
vous le sauvegarderez par BSAVE 
GHOS. CHIFFRE$.SET,A$8AFF.L$200 



8AFF 00 



8BO0- 


00 


00 


00 


00 


00 


00 


00 


40 


8B08- 


40 


E0 


60 


no 


30 


90 


18 


07 


8B10- 


01 


07 


07 


07 


07 


07 


07 


8C 


8B18- 


vc 


u 


06 


00 


00 


00 


00 


07 


8BP0- 


07 


07 


07 


07 


07 


07 


07 


00 


6BP8- 


00 


00 


00 


00 


00 


00 


00 


07 


8B30- 


07 


07 


,7 7 


07 


07 


07 


) 


' - 


8B38- 


78 


7C 


86 


06 


06 


06 


06 


03 


8B40- 


OF 


IF 


9C 


R8 


70 


70 


70 


00 


8B48- 


00 


00 


00 


40 


60 


70 


78 


Be 


BB50- 


39 


9E 


&F 


87 


83 


01 


00 


3C 


8B58- 


9E 


IE 


8F 


OF 


7F 


7F 


7F 


CC 


HBbO- 


00 


00 


00 


00 


7F 


7F 


7F 


60 




/8 


oc 


86 


06 


86 


84 


00 


03 



BB70- 


OF 


BE 


9C 


B8 


F8 


70 


70 


00 


BB 18- 


00 


00 


60 


60 


00 


00 


00 


70 


8B80- 


38 


1C 


OF 


07 


1C 


38 


70 


00 


8B88- 


84 


86 


06 


86 


0C 


78 


60 


•70 


8B90- 


70 


F8 


B8 


9C 


8F. 


OF 


03 


00 


8R 98- 


40 


E0 


60 


F0 


70 


B8 


38 


00 


8BA0- 


00 


00 


00 


00 


00 


00 


00 


9C 


BBA6- 


1C 


BE 


0E 


67 


07 


07 


07 


00 


8BB0- 


00 


00 


00 


00 


07 


07 


07 


7F 


8BB8- 


7F 


7F 


00 


00 


00 


00 


00 


7F 


8BC0- 


7F 


7F 


07 


07 


07 


' 


07 


7F 


8BC8- 


*F 


7F 


07 


07 


07 


07 


07 


3F 


8BD0- 


JF 


3F 


00 


00 


00 


00 


00 


07 


8BD8- 


7 


07 


7 


IF 


IF 


00 


00 


00 


8BE0- 


00 


00 


00 


87 


8F 


1C 


9C 


00 


8BF.8- 


00 


00 


07 


87 


8K 


FC 


70 


38 


8BF0- 


38 


38 


38 


38 


9C 


BF 


07 


00 


8BF8- 


00 


CO 


40 


E0 


60 


F0 


70 


00 


8CQ0- 


07 


83 


03 


81 


01 


80 


00 


B8 


8C08- 


36 


FC 


7C 


FE 


IE 


BF 


OF 


00 


8C10- 


00 


87 


3F 


9F 


BC 


78 


F8 


OF 


8C29- 


OF 


OF 


3F 


IE 


7C 


73 


70 


F3 


8C2Q- 


F8 


F8 


78 


3C 


IF 


OF 


07 


7F 


8C28- 


7F 


7F 


00 


00 


00 


00 


00 


7F 


8C30- 


IF 


JF 


fO 


B8 


38 


yc 


1C 


00 



8C38- 


00 


00 


00 


CO 


78 


FC 


7C 


8E 


8C40- 


0E 


87 


07 


83 


IF 


8F 


OF 


FO 


8C48- 


70 


B8 


38 


9C 


1C 


BE 


0E 


80 


8C5V- 


OU 


00 


00 


00 


00 


00 


00 


78 


8C58- 


7C 


8F 


OF 


OF 


OF 


OF 


OF 


OF 


8C60- 


IF 


BC 


78 


F8 


F8 


FB 


78 


8F 


8C68- 


IE 


FC 


7C 


FE 


IE 


8F 


OF 


RC 


SC70- 


3C 


BF 


8F 


9F 


BC 


78 


F8 


OF 


AC75- 


OF 


OF 


8F 


IE 


7C 


78 


70 


F8 


BC8Q- 


F8 


FB 


70 


3C 


IF 


OF 


07 


FC 


8C88- 


7C 


FE 


IE 


BF 


OF 


OF 


OF 


87 


8C9Q- 


8F 


9F 


BC 


78 


F8 


re 


F8 


OF 


8C98- 


8F 


IE 


7C 


78 


70 


00 


00 


F8 


8CA0- 


78 


BC 


3F 


9F 


IF 


8E 


0E 


00 


8CA8- 


00 


CO 


AO 


EO 


60 


F0 


00 


81 


8CB0- 


07 


83 


03 


81 


01 


BO 


00 


FC 


8CB8- 


7C 


FE 


IE 


8F 


OF 


OF 


OF 


87 


8CCO- 


8F 


IF 


ac 


78 


F8 


F8 


FB 


OF 


8CC8- 


OF 


OF 


OF 


OF 


OF 


OF 


OF 


F8 


8CD0- 


F8 


F8 


FB 


FB 


FB 


FB 


F8 


8F 


8CD8- 


IE 


FE 


7C 


FC 


00 


00 


00 


78 


8CE0- 


BC 


OF 


BF 


87 


00 


00 


00 


00 


8CE8- 


00 


00 


00 


00 


00 


00 


00 


00 


8cro- 


00 


00 


00 


00 


00 


00 


00 


00 


8CF8- 


00 


00 


00 


00 





00 


00 
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Lcs courbcs dc Lissajous sont 
des figures que Ton peiat ohtenir 
sur I'^cran d'un oscilloscope, en 
y faisant entrer deux courants 
altematifs simultane'ment, rnais 
Tun par Tenure horizontale et 
1'autre par 1'entrde verticale. 
L'effet obtenu ddpend du rapport 
des deux frequences, ainsi que du 
d^phasage entre les deux 
courants. 

Afin d'acet£l(£rer le trace* de ceite 
courbe, le cercle trigonom6trique 
est divise* ici en 256 parties ( au 
lieu de 2 n ) puis, en Basic, les 
sinus et cosinus de chaque angle 
sont calculus Ct ramends aux 
coordonneVs possibles de chaque 
point sur l'dcran de 1' Apple, puis 
stocked dans une table en 
m^moire. Cette pratique est tres 
courante. 



Lissajous 




Norbert Vurlod 



Le programme asscmblcur ecrit 
en Tool-Kit est lui-meme 
document^, il suffit d'ajouter que 
le paddle fait varier rapidement 
le ddphasage entre les deux 
courants (effet de rotation 
horizontale plus rapide ), alors 
que le paddle 1 d6termine le 
rapport des frequences, toujour? 
entre les deux courants. II 
entraine le changement de la 
forme de la courbe, du simple 
trait horizontal, h unc sorte de 
couronne royale, en passant par 
le cercle dans le cas de 2 courants 
de meme frequence. Ce rapport 
est limits a 16 afin de conserver 
une d6finition suffisante a la 
courbe (sous moniteur, remplacer 

les LSR par des NOP 4A -> EA 
pour vous en convaincre). 

Quand la vue de ces courbes aura 
atteint son effet hypnotique 
maximum, vous pourrez toujours 
vous endormir apres avoir 
appuye* sur ESC pour arreter le 
programme... 



Fichier 

'LISSAJOUS.DATA' 

Ce fichier binaire est une [Lite de 
sinus et cosinus que vous ohliendrez 
en Itmqcwt 1'exAcution du programme 
Basic USSAJOUS.FAIT DATA 



Comment faire ? 



crier le jicliier 
USSAJ US. DA TA en lanqam 
['execution de USSAJOUS.FAIT 
DATA (si vnus ne dispose! pas de 
la disquette Pom's) 
2 

saisir et sauvegarder I'objet 
USSAJOUS.OBJ. 
S 

faire RUN L1SSAJOUS.BAS. 
4 

regler frequence et phase d Vaide 
des paddles. 



Programme 
'LISSAJOUS.BAS' 

10 PRINT CHH$ (4) "BLOAD 
LISSAJOUS . DATA, A$6000 " 

20 PRINT CHR$ (4) "BRUN LI 
SSAJOVS.OBJ" 



Recapitulation 
'LISSAJOUS.OBJ' 

Aprds avoir safsi ce code sous monltour, 
vous le sauvegardoroz par BSA VE 
USSAJOUS.OBJ.AS300.LS9E 





0300- 


A9 


00 


85 


07 


85 


08 


A9 


20 




0308- 


85 


F.6 


A9 


55 


8D 


32 


03 


20 


Programme 
'USSAJOUS.FAIT 


crno- 


F2 


F3 


2C 


54 


CO 


2C 


52 


CO 


0318- 
0320- 


20 
20 


57 
EC 


CO 
F6 


2C 
A9 


50 
60 


CO 
45 


A2 
E6 




DATA' 


0328- 


B6 


A9 


01 


4D 


32 


03 


BD 


32 


0330- 


03 


2C 


00 


CO 


20 


F2 


F3 


A2 




0338- 


00 


20 


IE 


FB 


98 


18 


6b 


Of 


HI MEM: 20000: A = 20000 :B - 


0340- 


B5 


09 


AA 


BD 





60 


AO 


p 


A V- 256:PI2 - V * ATN (1 


0348- 


AE 


00 


61 


20 


57 


y4 


A9 








85 


08 


A2 


01 


20 


IF. 


FR 


98 


20 FOR I - V TO 255; J - PI2 


0358- 


4A 


4A 


1A 


4A 


85 


18 


AS 


09 


* I / 2b 6: PHI NT J, 


0360- 


1 8 


65 


18 


85 


09 


AA 


BC 





21 POKE A + I, 95 + 95 * SIN 


0369- 


60 


A6 


08 


BD 


00 


61 


A2 


00 


(J): PRINT PEEK (A + 1) , 


0370- 


20 


3A 


F5 


20 


CB 


F5 


E6 


06 


22 POKE B * 1,142 * 86 * CO 


0378- 


DO 


E4 


A6 


09 


BC 


00 


60 


A2 


S (J) : PRINT PEEK (B + I) 


0380- 


00 


AD 


00 


61 


20 


3A 


F5 


20 


26 NEXT It PR1UT CHR$ (4)"B 


0308- 


CO 


FS 


AD 


00 


CO 


C9 


9B 


FO 


SAVE LISSAJOUS.DATA, A"A",L 


0390- 


06 


EG 


07 


DO 


BE 


FO 


8C 


2C 


512" 


0398- 


10 


CO 


20 


2F 


FB 


60 







68 
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Source 'LISSAJOUS.SRCE' 
Assembleur Tool-Kit 



1 




one 


S300 




2 










3 


• COURSE DE 


LISSAJOUS 




4 

5 


• 








• 


• 








7 


ANGIE1 


EQU 


$07 


,'DESSINE LA COUR3E 


8 


ANGLE2 


EQU 


$08 


f iiui/iii UN fii/n. £,\Jei t/XLJL 


9 


ORD 


EQU 


$09 




10 


RAP.FREQ EQU 518 


; RAPPORT DES FREQUENCES 


11 


* 








12 


HCLR 


EQU 


SF3F2 




13 


PREAD 


EQU 


$FB1E 


; LECTURE PADDLE 


14 


HLIN 


EQU 


SF53A 




15 


» 








16 










2 7 
18 


■ INITIALISATIONS 












?9 


K 








20 




LDA 


9S00 




21 




STA 


ANGLE1 




22 




STA 


ANGLE2 




23 


* 








24 




IDA 


i$20 


; TRACE EN P. 1 


25 




STA 


$E6 




26 




LDA 


9 $55 


-VXSQ DE P. 2 


27 




STA 


PAGE 




PP. 




JSR 


HCLR 


, BfrMifi un rMlic. nlinl 


23 










30 




BIT 


$C054 


- COMMUTE. P T 

- L- villi <J I Li . • . 


31 




BIT 


$C052 


;HODE NON MIXTE 


32 




BIT 


$C05 7 


; HIRES 


33 




BIT 


SC050 


;MODE GRAPH I QUE P.l 


34 


• 








Jb 




LDX 


9S03 




36 




JSR 


SF6EC 


.•HCOLOR-3 


i7 
Ifl 


ft 
















39 
40 


* PROGRAMME 


PRINCIPAL 












41 










42 


BOUCLE1 


EQU 


* 




43 




LDA 


9560 




44 




EOU 


$E6 


; CONTIENT $20 OU 540 


45 




STA 


$B6 


;POUR P.l OU P. 2 


46 




LDA 


9S01 


; TRACE SUR UNF. PAGE 


47 




EOR 


PAGE 


; PENDANT QUE I. 'AUTRE 


48 




STA 


PAGE 


;EST AFFICHEE. . . 


49 




B7T 


SCOOO 


i t SC054 OU SC055 ) 


50 


PAGE 


EOU 


"-2 




51 




JSR 


HCLR 


/EFFACE LA PAGE CACHEE 


52 




LDX 


9500 


; LECTURE DU 


53 




JSR 


PREAD 


i PADDLE 


54 




TYA 






55 




etc 






56 




ADC 


ANGLE 1 




57 




STA 


ORD 




58 




TAX 




; TRACE DU 


59 




IDA 


TAR.STN.X 


.-PREMIER 


(50 




LDY 


9S00 


; POINT 


61 




LDX 


TAB. COS 




$2 




JSR 


SF45 7 


,-ltPLOT X, Y 


63 


• 










64 


LDA 


tsoo 




65 


STA 


ANGLE2 




66 - 








67 


LDX 


9$01 


: LECTURE DU 


68 


JSR 


PREAD 


i PADDLE 1 


69 


TYA 






70 


LSR 


A 


/DIVISION 


71 


LSR 


A 


;PAR 16 DE 


72 


T.SR 


A 


;PDL (1) 


73 


LSR 


A 




74 


STA 


RAP.FREQ 


; MAX Z MUM 16 PICS 










76 • TRACE 


DE LA BOUCLE 












78 BOUCLE2 


EQU 


• 




79 


LDA 


ORD 




80 


CLE 






81 


ADC 


RAP.FREQ 




82 


STA 


ORD 




83 


TAX 






84 


LDY 


TAB. SIN, X 




85 


LDX 


ANGLE2 




86 


LDA 


TAB . COS, X 




87 


LDX 


9500 




88 


JSR 


HLIN 


:HPLOT TO X, Y 


89 


JSR 


SF5CB 


; REINITIALISATION 


90 


INC 


ANGLE2 




91 


BNE 


D0UCLE2 





92 • 

93 » 

95 ■ FERME LA BOUCLE 
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69 











111 


9 




97 


LDX 


ORD 




112 


FIN 


EQU ' 


98 


LDY 


TAB, SIS, X 




113 




BIT SC010 ;RAZ CLAVIER 


99 


LDX 


$500 




114 




JSR SFB2F ; TEXT 


100 


LDA 


TAB. COS 




115 




RTS 


101 


JSP 


HLTN 




116 


* 




102 


JSB 


5F5CB 


: TNIT HIRES 


117 


******* 


r««#«jr*rir*#**«#*#ff#rtrt#iHH»l»rt»fWl»i»* 


103 * 








118 


• TABLE 


DES SINUS ET DES COSINUS 


lOi 


IDA 


scooo 


;TEST CLAVJEB 


119 






105 


CMP 




; TOUCHE ESC 


120 




DSECT 


106 


BEG 


FIN 




121 




ORG S6000 


107 ' 








122 


TAB. SIN 


DS $1 00 


108 


INC 


ANGLE 1 




123 


TAB. COS 


DS SI 00 


109 


3NE 


BOUCLE1 


;ON RECOMMENCE 


124 






110 


BEG 


B0UCLE1 











Courrier des Lecteurs 



FORMAT (numiro 23) 

Avez-vous essaye" de ripondre MON 
TITHE dans Voptlon &T du programme 
FORMAT de Pom's 23 ? Sous DOS 
3.3, le DOS intercepce la saisie comme 

une command?, et envoie done un 
SYNTAX ERROR. Je ne parte pas des 
consequences avec un litre let que 
IRWALES... 

Les 54 octets du patch ci-dessous 
e'timineni ce petit probleme. En bonus, 
j'ai rajouli quelques octets pour une 
gestion compUmentaire des codes de 
conl role ; 

CTRL-D insert* par exemple dans un 
programme sera listi A D. 

BLOW FORMAT 
C/lLL-ISI 

91AB:F0 7 4C 10 95 A9 FO 2 A9 
70 85 CE A9 3 Mb CF 70 F8 94 

94BF;A2 BF 86 33 A9 FF CS ?6 DO 
7 86 76 AS JS 46 AS 19 48 

94D1:A9 El 65 36 A9 3 65 39 20 
6A FD £0 21 BO 22 EA 

95$£ltO 

9581:60 
9590; 80 

93B6;C9 20 BO 11 69 4 18 A9 5E 

20 04 93 68 
93C3;EA EA H EA EA EA EA EA 
UNLOCK FORMAT 
8 SA'-'E FORMAT, AP90D1 , LSS27 

Ce patch tourne comme un fichier Exec 
( FORMA T. PA TCH sur la disquette 
Pom's), a) n'utiliscr bien sur que sur une 
version de sauvegarde... It ne 
fonctionne que. pour la version DOS 33 
du programme. Son adaptation & 
ProDOS ne devrait pas vous poser de 
problimes 

Yvan Koenig. 06220 Vallaurii 



CQFD 

J'ai de gros prohltmes pour /aire 
fonctionner le programme de conversion 
CQFD paru dans le numiro 16 de 
Pom's, malgri des tentatives sur 
ProDOS 1.0 et 1.1.1. 

Docteur Gerard Lacurie 
13112 LA DESTROt/SSE 

Voici les deux lignes a modifier 



117 IF PKEK(4B896) <r> 76 THEN FLASH : 

PK1NT "VOWS S'ETES FAS 50V5 PRODOS 
NORMAL: EMI 

6021 POKE 811,163 : POKE 812,154 

Cctte dernierc lignc appellc une routine 
du Basic.System en S9AA3, auparavam 
situde en S9AAF, qui transfere les 
adrcsses SBfc34-BE38 vers $36-39. Par 
manque de place (U faut faire "cohabiter" 
les deux DOS en mCmoire), elle ne 
pouvait etre incluse dans le programme 
CQFD.B, d'ou des problemes lorsque 
ProDOS eVolue... 



AppleWriter et A " 

Quelques mots pour vous indiquer le 
moyen de modifier AppleWriter 
ProDOS pour qu'il tienne compte des A 
et "en justification totate. A i'aide d'un 
Idileur de secteur, it convient de 
modifier les zones comme indtqut! 
ci-dessous : 

Piste 00, Secteur OA, Octet 2A 

mettre 5B au lieu de 19 
Piste OF, Secteur OF, Octet E9 

mettre 4C 20 60 EA EA 

Piste 10, Secteur 00, Octet 09 
mettre 4C 40 60 

Piste 11, Secteur 09, Octet 20 

mettre CD DE B8 DO 03 4C FS 
49 C9 08 FO 03 4C EE 49 E6 
75 E6 75 C4 75 FO 03 4C A8 
49 4C 05 4A EA EA EA A4 75 
B9 00 1C C9 20 FO 0D C9 08 
FO 03 88 DO F2 C6 75 C6 75 
EAEAA4754CEF4BO0 

Cettt modifw.ation convient pour les 

Apple He 6502 c£ 65C02 ; elie interview 

sur le programme AWD.SYS. 

Michel D VROC, 97220 Triniti 

Yo'iei une solution non anbigue des 
accents qt': posent bien des 
problemes intllgants ntne au mo r s 
d'aoGt. Fa i re un essai sur une 
copie est une bonne precaution.., 



Snake 

J'aurais souhait4 utiliser le jcu Snake 
(numiro 24 de Pom's) avec de jeunes 



enfants et. pour cela, rlduire la vitesse 
de diplacement du serpent. Philippe 
Krepper pourraiuil me fournir une 
tneihoae qui e'viterait un rtassemblage ? 

Yves Robert, 36000 Chdteauroux 
1 ere solution 

Programme SNAKE.FUSION : 
supprimer de la ligne 50 le 

PRINT DS K &5AVE K F3",A973,L31ll m 

et ajouier : 

60 DATA 169, 13, 133,213,32, 79, 15 
, I 98,213, 708, 2*9,734 

tO FOR L • TO 11: HEAD A: POKE 

3672 * L,A; NEXT 
80 PRINT US"BSAVE"FS'',A973,L3111 m 

La valeur 15 de la ligne 60 est a 
d&erminerexp6rimentalement : plus elle 
est grandc, plus le serpent ralentit, 
2eme solution 

Elle n£cessite un assemblcur mais 
permet de faire varier a loisir la vitesse : 
Insurer apres la ligne 477 : 



(14 It) 






478 RAI-FVT 


INC 


RCL04+1 


479 


PTS 




480 ACCELH 


QKC 


m:i.04* j 


461 


BEQ 


RALENT 


48? 


NTS 




(CTRL S) 






Insurer apres la lignc 466 : 


114 67) 






467 


CM" 


4SC1 ; 


468 


BEQ 


ACCELR 


469 


CWP 


4SD2 1 


470 


HEQ 


HAUNT 


/CTRL E) 






Remplacer les lignes 338 a 34 


fM3 38 ,34 6 J 






339 BCL04 


IDA 


iSF 


339 


STA 


SD5 


340 ACf.G5 


JSR 


LITSNS 


341 


DEC 


*D5 


342 


BNE 


BCL05 



ICTRL 11 

Ensuite, assembler le programme et le 
sauver par : 

BSAVE SNAKE. OBJ, ASC00, LS3F6 

et enfin faire tourner ie programme 
SNAKE.FUSION en ayant modifie* la 
ligne 50 , L3111 devient f L3llX 
En cours de panic, on peut aiors 
modifier la vitesse par A et R. 
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Jean-Michel 
Gourevitch 



Micro -in formatio ns 



Plus de quatre millions de 
micro-ordinateurs vendus : c'est 
le total attelnt cet etc par Apple 
toutes machines confondues. 
Chiffre significatif : la firme £ la 
pomme serait en train de gagner 
ses paris. A preuve l'article ecrit 
en juillet dans la revue Infoworld 
par Dave Winer, fondateur de la 
firme Living Text (1'editeur de 
Think Tank). Dave Winer y 
explique que les clients se 
bousculent dans les boutiques 
pour achetcr dcs logiciels pour le 
Mac, que les devcloppeurs se 
bagarrenl pour lui ecrire des 
programmes et qu 'Apple a pris 
une avance technologique 
decisive surlBM. 



Programmes : 
I'artillerie lourdc 

Exagerations ? II est sur que les 
ventes de Macintosh ont reel- 
lement decollees avec le MacPIus. 
II est certain aussi que les 
programmes se font de plus en 
plus nombreux, que lcur qua lite 
depasse celle des programmes du 
PC. Ainsi Excel, dont les ama- 
teurs de "Big Blue" attendent 
encore la transposition sur leur 
PC favori. Ainsi surtout 
d'Ashton Tate, qui a present e a 
la Macworld Expo de Boston la 
version pour Macintosh de son 
celebrissime "DBase", la reinc 
des bases de donnees. 
DBase pour le Mac esi un 
gestionnaire de bases de donnees 
relationnel avec des relations 
illustrees comme dans 4eme 
Dimension (pour rclicr entre 
eux jusqu'S 36 fichiers). Vendu 
outre Atlantique 495 dollars, ce 
programme fait une abundante 
utilisation des icdnes et peut recu- 
peret 1 et utiliser les fichiers crees 
sur DBase II et III sur le PC. Le 
systeme comprend un langage 
utilisant les raffinements des 
declarations conditionndles, des 
fonctions mathematiques, on peut 
y creer des fenetres d'alerie, des 
menus personnalises, etc. «I1 est 



superieur a DBase III Plus pour 
le PC» a carre*ment assure 
Edward Esber, le president 
d'Ashton Tate. On avait jadis 
attendu en vain la consecration du 
Macintosh par Jazz. Et si Ashton 
Tate reussissait IS ou Lotus a 
echoue' ? 

Nouveautes : 

oris et chuchotemcnts 

A 1'heure ou vous lirez ces li- 
gnes, on saura probablement tout 
du nouvel Apple //. A dire vrai, le 
seul mystere residait dans son 
prix, qu'on pensait difficilement 
pouvoir etrc inferieur S 15 000,00 
F. Pour le reste, la tres haute 
definition de son e'eran et ses 
possibility sonores en faisaient 
une sorte d'Amiga ii la sauce 
Apple, capable d'utiliser notam- 
ment les programmes existant 
pour le //. 

La question du prix est impor- 
tante. On s'attend en effet d'ici a 
Noel i une bagarre comme la 
micro-informatique n'en avait 
encore jamais yu. C6t6 PC, 
Amstrad et Tandy etaient a* la fin 
juillet sur le point de franchir 
dans le bon sens (pour l'ulilisa- 
teur) la limite des 4 000,00 F. El 
Atari mijotait un ST utilisant un 
proccsseur 68020 (le plus rapide 
de la famille de celui du Mac), 
deux mcgas de m^moire et le 
systeme Unix. Le tout a prix 
"canon". Dans ces conditions, le 
prix du nouvel Apple devenait un 
element cle de sa survie. 

Cote Mac, les rumeurs venues dc 
Californie portaient d'abord sur 
^amelioration (on paxle d'un dou- 
blement et de 16 teintes de gris) 
de la resolution graphique du 
Macintosh. Ce probleme de l'a- 
mclioration de la qualite' de 
l'ccran est semble t-il devenu si 
important qu 'Alain Rossmann, et 
quelques autres genies de chez 
Apple ont quitte* cet 6ti la firme a 
la pomme pour monter une firme 
specialise© dans les moniteurs de 
tres haute quality. Tiens, tiens... 



II se murmurait aussi que le 
nouveau Mac modulaire aurait 
pr6cis6ment un ecran de tres 
haute resolution, et utilisant un 
processeur 68020, deviendrait 
pour moins de 5000 dollars un 
concurrent sericux pour les 
"stations de travail " scientifiques 
du genre Apollo, 

Un outil pour 
scientifiques 

Ce marche parait si interessant, 
que les fabricants de peripheri- 
ques 1'ont deja investi. Dans son 
num£ro d'aout, la revue Mac 
World a consacre sa couverture et 
tout un article a des ameliorations 
pcrmettant de faire travailler le 
Macintosh plus rapidement qu'un 
mini ordinateur Vax. 
Le plus impressionnant est un 
Macintosh gonfld par la firme 
Levco ct baptise Prodigy 4. 
Avec notamrncnt un processeur 
68020, cadence a 16 megahertz, 
(pennettant de disposer d'une 
puissance d'un MIPS : un million 
destructions par seconde), un 
coprocesseur 68881 et 4 megas 
de mcmoirc vive. Plus rapide 
qu'un Vax, pour quelquc 7000 
dollars. Ce n'est pas donne, mais 
il parait que les scientifiques y 
trouvent leur compte ; «on a les 
avantages d'un Vax, sans fctre 
oblige de se le partager h 15» 
expliquait I'un d'eux au journal 
Infoworld. Autre Mac gonfle : 
celui de General Computer : 
1'Hyperdrive 2000 deja deer it 
dans cette rubrique, utilisant lui, 
un 68000 plus rapide et un 
coprocesseur 68881. Deux autres 
firmes ont choisi de se limiter h 
l'ajoul de ce coprocesseur 
Quesse, avec le Maccelerator, 
utilisant un 32081 (Prix : 495 
dollars) et Novy avec le meme 
coprocesseur dans un "accelera- 
teur a virgule tloitanlc" (Prix : 
449 dollars). A noter que 1'acce- 
lerateur de Quesse s'installe a 
l'interieur d'un Macintosh Plus, 
ce que ne peut faire celui de 
Novy. 
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Un Mac "pro" 

En attendant que ces merveilles 
fassent panie de l'e*quipement de 
base du Macintosh, on peui 
remarqucr que les programmes 
deviennent & la fois plus scienti- 
fiques et plus professionnels. 

Les scicntifiqucs sont cnfin scr- 
vis. Avec toute une serie de 
traitements de texte scientifiques. 
Touie une serie sont dans le do- 
maine public. Weinberg deve- 
loppe* par Allan Boardio per- 
met d'dditer et d'imprimer routes 
sortes de formules mathematiques 
a base dc X, de \, etc. Alpha 
Systemes importe Techfont, 
une serie de police de caracteres 
techniques, (1 200,00 Francs) 
SciFont, des caracteres scienti- 
fiques (635.00 Francs) et 
Log i fonts, comprenant les 
composants des circuits logiques 
(510,00 Francs). 

A noter que le britannique Elite 
Software a lui aussi realise un 
traitement de texte scientifique 
s'ajoutant & sa gamme Format 
80 pour les Apple //. Pour les 
amateurs de mathematiques, un 
programme permet de r£soudre 
sans douleurs des equations : 
c'est Power Math de Brain 
Power, de\ , eloppe' par un ancien 
eteve du MIT et un ancien de 
Cambridge. 

Avec ses possibilites graphiques, 
le Mac est un parfait outil d'ana- 
lyse. A preuve, Cricket Graph, 
importe par KA Informatique. 
un graphcur comportant des fonc- 
tions statistiques, la possibilite de 
mixer les graphiques avec des 
textes el d iniprimer le tout en 
couleurs sur l'lmagewriter II. 
Rien de tel que l'image pour 
analyser les donnees. 



C'est cc qu'a aussi compris 
Abvent avec son Anatool. Un 
outil permettant de modeliser les 
procedures dans une usine, de 
definir un dictionnaire de don- 
nees, des specific ations de pro- 
cessus, de verification de sys- 
tems etc. Vcrra t-on davantage 
de Mac en usine grace k cc 
programme ? 



Mac organisateur 
d'idees 

Living Videotext. l'auteur de 
Think Tank a sorti More, qui 
permet de traduire graphiquement 
en organ igramme, toute une 
hierarchic de noms ou d'idees. 
Tandis que fleurissent les imita- 
tions. MaxThink de Max 
Think Inc. est vendu la moitie* 
du prix de Think Tank : 195 
dollars. Calliope dlnnovision 
utilise des iconcs rcprcscntant les 
idees formulees dans des fenetres 
differentes. Ces icones peuvent 
etre reliees entre elles. MacSpec 
de LM Software permet aussi 
d'organiser des specifications ou 
des id£es, en nume>otant et 
indentant automatiquement, en 
renumcrotant lorsquc Ton dcplacc 
les sections, en £tablissant auto- 
matiquement des tables de matu- 
res (Prix : 200 dollars). 

Accessoires de bureau 

Et voici surtout Acta. Avantage 
delcisif : il s'installe dans le menu 
Pomme com me un accessoire de 
bureau, peut organiser des docu- 
ments avec 2000 niveaux d'idees. 
Ses dossiers peuvent Stre enregis- 
tres cornme des documents Mac 
Write (et done utilisables par 
Word). Son seul defaut : on ne 
peut imprimer les idees directe- 
ment, il faut d*abord les trans- 
ferer dans Macwrite ou Word. 
Prix : 60 dollars. Mainstay pro- 
pose aussi, pour exactcmcnt lc 
mfime prix, Think Now, lui 
aussi s'installe dans le menu 
Pomme et etend ou contracte le 
plan & la demande. 

I-es accessoires de bureau du me- 
nu Pomme sont decidement bien 
pratiques, puisque utilisables 
dans tous les environnements et 
dans tous les programmes. A 
noter parmi ceux qui sont 
particulieremcnt utiles, toujours 
chez Mainstay, TypeNow, qui 
transforme le Mac en machine £ 
ecrire : tout ce qu'on tape est 
immediatement et directernent 
imprime sur l'lmageWriter. Prix 
raisonnable : 40 dollars. Ideal 
pour ecrire un memo ou des 
enveloppes. Top Desk de 
Cortland Computer, com- 



prend pour 60 dollars, un editeur 
de macros, un spooler permettant 
^ Timprimante d'imprimer en 
qualite graphique pendant que 
Ton continue & travailler, la 
possibilite d'ouvrir huit fenetres 
dans Macwrite, un crypteur de 
fichiers pour les proteger des 
yeux indiscrets, un systeme d£- 
sactivant l'ecran pour le proteger 
des brCllures, la possibility de 
transferer rapidement des 616- 
ments entre applications sans 
utiliser le finder, le tout en acces- 
soires de bureau. 

Alpha Systemes importe 
Locater, un accessoire de 
bureau du menu Pomme qui 
permet d'afficher I'arborescence 
conduisant a un document 
d'apres son nom, sa premiere 
lettre ou sa date de creation. 
Quasiment indispensable a ceux 
qui utilisent le HFS avec un 
disque dux. Prix : 350,00 Francs. 

Parmi les autres accessoires de 
bureau en voici deux bien utiles : 
Art Grabber + distribue par 
Hayden permet de prelcvcr ct 
coller immediatement un dessin 
dans Macwrite sans quitter cette 
application et fonctionne avec 
MacPlus. J Clock, un acces- 
soire du domaine public permet 
d'installer il demeure au demar- 
rage une horloge visible en per- 
manence dans le coin superieur 
droit de tous les programmes. 

AuLre accessoire amusant qui ne 
s'installe pas dans le menu Pom- 
me. Postermaker, de Strider 
Software permet pour 40 dol 
lars de realiser des posters de 
n'importe quel document Mac 
Paint agrandi jusqu'i 32 fois. 

Traitements de texte 

La decision d'Apple dc ne plus 
livrer systematiquement Macwrite 
avec les Macintosh ne cesse de 
provoquer des vocations. Du c6te 
des anciens, remarquons d'abord 
une version 4.6 de Macwrite. Elle 
comporte seulement comme nou- 
veaute' en haut de l'ecran une 
barre avec des icdnes d^finis- 
sables par 1'utilisateur represen- 
tant les choix des menus, et 
l'affichage de l'heure en perma- 
nence. Word Handler d'ALS 
vendu actuellement seulement 30 



72 



Pom's n" 26 



dollars comprend la possibilite. 
d'ouvrir A fen6tres, de se depla- 
cer lateralement comrae dans 
Word, dc lire les fichiers Mac 
Write, un compteur de mots, des 
abreviations automatiques er lc 
passage automatique majuscules/ 
minuscules. 

En France, on attend avec impa- 
tience Writer Plus d'ACI avec 
(cntre autres) ses possibilites d'e- 
criture en colonncs et sa ensure 
automatique. Microsoft a re- 
pousse jusqu'a la fin de l'annee 
sa nouvelle version de Word 
(cornprenant notamment un cor- 
recteur integre d'orthographes et 
un organisateur d'id^es) pour 
laisser toutes ses chances ^ Mac 
Works, officiellemcnt presente 
en aout a la MacWorld Expo de 
Boston. 

Works, la version pour Mac 
d'Appleworks devrait faire un 
sacre tabac. Voici en effet un 
programme int£gr6 utilisable par 
tous. II a su eviter la lourdeur et 
la lenteur de Jazz grace a une 
donnee irnportante : il travaille en 
memoire vive. Les tris sur base 
de donnees s'effectuent £ une 
vitesse impressionnante. Le ta- 
bleur (avec grapheur incorpore) 
qui ne cfede rien a Multiplan per- 
met de disposer dc 256 colonnes 
et 9999 rangees, de disposer de 
54 fonctions et de plusieurs fenS- 
tres parmi lesquelles on se de- 
place cornme dans Excel. Le petit 

programme de communications 
fonctionne parfaitement et pro- 
pose unc innovation quasi rdvolu- 
tionnaire : les transferts s'effec- 
tuent en tache de fond. En clair, 
on peut recevoir un fichier 
important tout en continuant a 
travailler sur le traitement de 
texte. Et quel traitement de texte. 
II comporte a la foLs la facilite de 
Macwrite, les possibilites de 
parametrage des paragraphes de 
Word avec deux nouveautes : la 
possibility de dessiner ou d'enca- 
drer, incorporee a I'application, 
ainsi que la possibility d'ecrire un 
texte a cote d'une image ou d'un 
dessin qu'on a colle dans un 
texle. Souplesse, facilite, rapi- 
dite: Works offre pour 295 
dollars, tout ce qu'un utilisateur 
moyen peut souhaiter. Avec son 
fonctionnement en RAM, il utilise 



au mieux les possibilites du 
Macintosh Plus. Avec d'un cotd 
Mac Works el de l'autre Excel, 
voici Jazz tr&s dangereusement 
pris en tenaille entre un integre 
facile et un integrable puissant. 

Du hard 

Un peu monstrueuse la modifica- 
tion de Custom Computer 
baptisee Double DD installe tout 
simplement un second lecteur a 
l'interieux du Macintosh, sa fente 
d'introduction se presente sur le 
cote droit du Mac. Aux btats 
Unis, cette modification coute 
189 dollars pour un lecteur de 
400Ko et immobilise le Mac pour 
deux jours. En France, aucun 
audacieux n'a encore tenttJ 5a. 

Aux Etats Unis, toujours, 
General Computer presente 
son premier disque dur... ex- 
teme : le FX 20. Prix 1 200 dol- 
lars pour 20 Megas. Branchement 
sur le purl SCSI. 

BDAO ? 

Voici pour terminer, un traitement 
de texte un peu special, e'est 
Comic Works ecrit par 
MicroMind (les auteurs de 
Videoworks et Musicworks). 
Comic Works; est tout simplement 
un 6diteur de bandes dessinees 
combinant les possibilites de 
Mac Write pour les textes et de 
Macpaint pour les dessins (avec 
notamment un aerographe avec 
buse ajustable). Tout un choix de 
bulles est prevu pour contenir les 
textes Merits avec des polices du 
genre "Vampire" ou "Crypt". 
Voici pour le grand public le 
premier programme de BDAO : la 
bande dessinee assistee par 
ordinateur. 

Formation 

Le succes de son seminaire 
avancc sur Multiplan (avril 86) a 
conduit KA a renouveler l'opcra- 
tion le mercredi 8 octobre a 
l'Ameriean Chamber of 
Commerce, toujours en pre- 
sence de Bernard Vergnes, Presi- 
dent de Microsoft France. Ce 
scminaixe d'une journee, anime 
par Herve Thiriez, s'adresse a 
tous les utilisatcurs confirmes de 
Multiplan. 



Adresses 

Levco - 66160 Lusk Boulevard 
San Diego CA 92121 

Quesse Computer Co 
P.O. Box 922 Issaquah 
WA 98027 

Novy Systems 

69 Ravenwood 

Ct Onnond Beach FL 32074 

Allan Boardlo Ass 
2000 Center St n°1225 
Berkeley CA 94704 

Elite Software 

4 Hawthylands Drive - Hailsham 
East Sussex BN271HK UK 

Alpha Systemes 

29 Bd Gambetta 

38000 Grenoble 

Tel : 76 43 19 97 

Brain Power - 24009 Ventura 

Bd Calabasas CA 91302 

Abvent 

9903 Santa Monica Bd suite 268 
Beverly Hills CA 90212 

MaxThink Inc. 

230 Crocket Ave, Piedmont 
CA 94160 

Innovision 

POBox 1317 Los Altos 

CA 94023 

Symmetry 

761 E University Dr 

Ste C. Mesa AZ 85203 

LM Software - PO Box 93 
Belmont CA 94002 

Mainstay - 2861 IB Canwood 
Agoura CA 91301 

Cortland Computer 
POBox 9916 
Berkeley CA 94709 

Strider Software 
Bcccher Lake Road Pembine 
Wisconsin WI 54156 

ALS - 1283 Reamwood Ave 
Sunnyvale CA 94089 

Custom Computer 
3601 Parkview Lnn'lC 
Irvine CA 92715 

KA Service Formation 

14, rue Magellan - 75008 Paris 

Tel.: 47 80 22 23 

American Chamber 
of Commerce 

21 1 avenue Georges V a, 
75008 Paris fl 
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Bon de commande 



Disquettes 



HAIFA source (cf. Pom's n" 5) a 60,00 F 

MUSIC (cf. Pom's n" 10) a 80,00 F 

DISK-MANAGER (cf. Pom's n" 11) a 450,00 F 

BASICIUM (cf. Pom's n" 13) a 150,00 F 

E.P.E. 5.0 (cf. Pom's n' 23) a 200,00 F 

^change E.P.E. 5.0 (cf. Pom's n' 23) a 80,00 F 

PASCAL (cf. Pom's n' 15) a 80,00 F 

MAX (Monlteur ttendu) (cf. Pom's n" 18) a 150,00 F 

DOMINOS (cf. Pom's n' 19) a 80,00 F 

P-FORMAT It P-POLICE ][ (cf. Pom's n' 21) a 200,00 F 

COGO (cf. Pom's n' 21) ft 150,00 F 

LUDOLOGIC (cf. Pom's n' 25) a 80,00 F 

ORDICO (cf. page 57) a 200,00 F 

Recutita 

N*l, recueil des revues 14 4 a 140,00 F 

Disquettes d'accompagnement 1 a 4 a 200,00 F 

N°2 t recueil des revues 5 a 8 a 140,00 F 

Disquettes d'accompagncment £ a 8 > •»••• • a 200,00 F 

N"3, recueil des revues 9 a 12 a 140,00 F 

Disquettes d'accompagnement 9 ft 12 * 200,00 F 

Revues, disquettes 

Revues 4 7 8 (n'9 4puisi) a 35,00 F 

Revues 10 11 12 13 14 15 16 17 18 1920 21 22 23 24 25 26 a 40,00 F 

Disquettes Apple II, //e, Ik 

1/2 3 4 5 6 7 8 9 10 11 12 13 a 60,00 F 

14 15 16 17 18 19 20 21 22 23 24 25 26 

Disquettes Macintosh 

14/15/16 groupecs a 150,00 F 

17 18 19 20 21 22 23 24 25 26 a 80,00 F 

MacW a 80,00 F 

MacAsttuces a 200,00 F 

"Raccourci" a 200,00 F 

AbonnementS Pour 6 numeros apartirdu n" 

Abonnement a la revue seule a 200,00 F 

Abonuement revue + disquettes Apple II, //e, lie a 500,00 F 

Abonnement revue + disquettes Macintosh a 600,00 F 

Total TTC : 

Supplement avion hors CEE : 15.00F par numcro ct/ou disquettc : 



Montant du regie merit : 



Envoyez ce ban et voire reglement d : EDITIONS MEV, 64 rue des ChanLiers 78000 VERSAILLES 

Nom : 
Adresse : 
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PROGRAMMER 

Clofs pour Macintosch 150 FF - 
Basic Microsoft 2.0 sur Macintosh 
250 FF - Basic + 80 routines sur 
Apple II 95 FF - Les ressources de I'Apple 
He 95 FF - Assembleur de I'Apple 120 FF - 
Introduction a ProDOS sur Apple 85 FF - 
Systeme ProDOS sur Apple 
190 FF - Programmation 
systeme de I'Apple I1 190 FF — 
Apple, modems et serveurs 
130 FF - Clefs pour I'Apple lie 
et lie 65C02 145 FF. 




UTIUSER 

Mac Astuces 150 fT - Multiplan 
pour Macintosh 110 FF - Le livre de 
Jazz 220 FF - 50 modeles Multiplan 
pour gerer sur Apple et IBM/PC 130 FF - 
Appleworks au travail 160 FF - 
Photographie sur Apple et Amstrad 150 FF. 



DES LIVRES POUR 



CREER 



Programmation dos jeux 
Apple II 140 FF - Apple, 
systernes experts 120 FF - 
animation graphlque sur Apple 335 FF. 



d'Arcade sur 
logique et 
- Cre-ation et 



JOUER 

102 programmes pour 
Apple 120 FF - Super jeux 
Apple 120 FF. 
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